It can. Another way

With Activesheet

LastRow = .Cells(Rows.Count, "B").End(xlUp).Row

.Range("B1").Resize(LastRow).SpecialCells(xlCellTy peBlanks).Entirerow.Delete
End With

HTH

Bob

"JohnUK" wrote in message
...
Hi Bob, Thanks for help, but it's not as simple as that. There is a lot of
manipulation of data that gets copied from one tab to another, gets
sorted,
has rows inserted between certain data,
then back.
Can the rows not be deleted through code then?


"Bob Phillips" wrote:

Autofilter column B for blanks, then delete all visible rows.

HTH

Bob

"JohnUK" wrote in message
...
Hi, I am after a piece of code that will delete all empty rows
downwards
from
1st row until it hits data in column B. I can see plenty of threads
explaining how to delete upwards until it hits data, but not downwards.
Help greatly appreciated



.