Delete Blank Rows in Excel

Add to Favorites

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")


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

How to Install the Macro
  1. Select and copy the text from within the grey box above.

  2. Open the Microsoft Excel file in which you would like the Macro to function.

  3. Press "Alt + F11" - This will open the Visual Basic Editor - Works for all Excel Versions.  Or For other ways to get there, Click Here.

  4. On the new window that opens up, go to the left side where the vertical pane is located. Locate your Excel file; it will be called VBAProject (YOUR FILE'S NAME HERE) and click this.

  5. If the Macro goes in a Module, Click Here, otherwise continue to Step 8.

  6. If the Macro goes in the Workbook or ThisWorkbook, Click Here, otherwise continue to Step 8.

  7. If the Macro goes in the Worksheet Code, Click Here, otherwise continue to Step 8.

  8. Close the Microsoft Visual Basic Editor window and save the Excel file. When you close the Visual Basic Editor window, the regular Excel window will not close.

  9. You are now ready to run the macro.

Excel Forum