Good point. Thanks for all your help

--
David

Dave Peterson wrote

I think I'd check to see if that cell was empty first.

if .range("B2").value = "" then
.rows(2).delete
end if
Application.Goto .Range("a1"), Scroll:=True
.range("b2").select
ActiveWindow.FreezePanes = True
.UsedRange.Columns.AutoFit

Just in case that "padded row" was actually used.

Dave Peterson wrote

I'd just check, then (maybe) delete.

David wrote:

Or maybe to preserve integrity:

.Rows(2).Hidden = True

--
David