Do Loop to delete empty rows

Select the whole area and apply an AutoFilter. Select a column that you know will be empty. Select Blanks.

Highlight the whole area and Delete Rows. It will only delete those that are visible.

Thanks
Rob H

Hi RGonzo, your Macro looks good, but I want to take out the headings of each page as they are just repeating. Can you adapt the Macro to delete the rows where column 11 is blank?

simply add this line either in my code above like this or in Rgonzo's code

Columns("K").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Select allOpen in new window

Sub DeleteRows()
ActiveSheet.UsedRange.Select
'Deletes the entire row within the selection if the ENTIRE row contains no data.
Dim i As Long
'Turn off calculation and screenupdating to speed up the macro.
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
'Work backwards because we are deleting rows.
For i = Selection.Rows.Count To 1 Step -1
If WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then
Selection.Rows(i).EntireRow.Delete
End If
Next i
Columns("K").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub

Select allOpen in new window

It works great