Deletes blank rows

Code:
ActiveSheet.Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete