Hi! You mean like this?
I am diffident in whether the code which I presented is filling your demand.
Regards,
Sub test()
Dim i As Long, rngDel As Range
For i = Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then
If rngDel Is Nothing Then
Set rngDel = Rows(i)
Else
Set rngDel = Union(rngDel, Rows(i))
End If
End If
Next
rngDel.EntireRow.Delete
End Sub