The following function deletes entire rows if there are no values in the corresponding cells of the specified column.
Function DeleteEmptyRows(ColNum As Integer)
Columns(ColNum).SpecialCells(xlCellTypeBlanks).EntireRow.delete
End Sub
It accepts a column number as an argument.