Delete Blank Rows in Excel

This is a macro which will delete blank rows in excel. This version will delete an entire row if there is a blank cell detected in the column which you select.

This works by having a message box pop up in excel and then asking you how many rows, below and including the cell you selected, you want to check for and delete if it contains an empty cell within that column.

This macro for excel works very well; though, note that you will have to input, in the automated message box, the number of rows down that you want to check for.

Where to install the macro:  Module

Delete Blank Rows in Excel

Sub DeleteEmptyRows()

'This macro will delete all rows, which are missing data in a 
'particular column, underneath and including the selected cell.

Dim Counter
Dim i As Integer

Counter = InputBox("Enter the total number of rows to process")

ActiveCell.Select

For i = 1 To Counter
 If ActiveCell = "" Then
  Selection.EntireRow.Delete
  Counter = Counter - 1
 Else
  ActiveCell.Offset(1, 0).Select
 End If
Next i

End Sub

---