Delete full blank rows when some blank cells and cells with data

[bpfish36]

I have a worksheet that has blank rows but also has rows where only some cells are blank. I want to delete the rows that are completely blank but not the rows in which any cell is used. There are 30 columns and the blank cells can be in any or multiple columns. There are over 60,000 rows so doing this manually will be a major issue. Please note the Go To Special -> Blanks method doesn't work here because it deletes ALL blanks, which scrambles my rows up. That method is apparently for sheets in which there's data in every cell of the row in the selected range. Many thanks for the help.

 

[Michael M]

How about

Sub MM1()
Dim lr As Long, r As Long
Application.ScreenUpdating = False
lr = Cells(Rows.Count, "A").End(xlUp).Row
For r = lr To 1 Step -1
    If WorksheetFunction.CountA(Range(Cells(r, 1), Cells(r, 30))) = 0 Then
        Rows(r).Delete
    End If
Next r
Application.ScreenUpdating = True
End Sub

 

[bpfish36]

That worked, thank you

 

[Michael M]

Just remember of course, it only goes across 30 columns in it's current form !..

 

[bpfish36]

Thank you