Dim i, n As Integer
totalrows = ActiveSheet.Rows.Count
For i = 1 To totalrows
If ActiveCell.Value = Empty Then
n = ActiveCell.Row
Selection.Resize(totalrows - n, 1).EntireRow.Delete
note it starts from the current active cell, if this isn't appropriate you'll to need to amend as.