Sub Macro1()
Dim I As Long
Dim DL As Long
Application.ScreenUpdating = False
DL = Cells(Application.Rows.Count, "A").End(xlUp).Row
For I = DL To 3 Step -1
If IsEmpty(Cells(I, "A").Value) Then Rows(I).Delete
Next I
Application.ScreenUpdating = True
End Sub