Fantastic, just what I wanted.
Many thanks
Gord
Regards
John

"Gord Dibben" wrote:

Blanks in column B down to say B7?

Sub delete_blank_rows()
Range(Cells(1, 2), Cells(1, 2).End(xlDown).Offset(-1)) _
.EntireRow.Delete
End Sub


Gord Dibben MS Excel MVP

On Sat, 6 Feb 2010 05:46:01 -0800, 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

.