On 2/6/2010 8:46 AM, JohnUK wrote:
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


Just another slight variation:

Sub Demo()
With [B:B] 'Column
If .Cells(1) = vbNullString Then
.SpecialCells(xlCellTypeBlanks).Areas(1).EntireRow .Delete
End If
End With
End Sub

= = = = = = =
HTH :)
Dana DeLouis