Select a column of your data area which identifies the blank rows
(probably your number column if that is a unique ID of some sort)

GoTo Special (Ctrl-G, Alt-S), click on Blanks, OK
Now all the blank cells are selected, right click one of them (NOT a
row), choose delete, answer "rows" whcn prompted what to delete.
(or go to the Home ribbon Cells Delete Rows.)

Hope this helps.
Adam



On 10/03/2010 13:42, Don Guillett wrote:
select a1f5specialblanksdelete
or

Sub deleteblankrows()
Columns(1).SpecialCells(xlCellTypeBlanks).EntireRo w.Delete
End Sub