User login

A VBA function That Deletes Empty Rows

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.