...e_008...


If in column A is an empty cell then
delete the entire row
Sub Del()
 Range("A2", Range("A65536").End(xlUp)).Cells. _
 SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

by Ber Visser