Code:
 
Application.Intersect(ActiveSheet.Columns(1).Cells(4).Resize(Rows.Count - 4 + 1), ActiveSheet.Columns(1).SpecialCells(xlCellTypeBlanks)).EntireRow.Delete