Excel VBA - Delete empty rows

Question

I want to get rid of the empty rows that my ERP quotation produces. I'm trying to go through the entire document (A1:Z50) and eliminate any rows where the cells are empty (A1-B1...Z1 = empty, A5-B5...Z5 = empty).

I found this, but can't seem to configure it for me.

On Error Resume Next
Worksheet.Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0

Answer 1

Try this:

sub foo()
  dim r As Range, rows As Long, i As Long
  Set r = ActiveSheet.Range("A1:Z50")
  rows = r.rows.Count
  For i = rows To 1 Step (-1)
    If WorksheetFunction.CountA(r.rows(i)) = 0 Then r.rows(i).Delete
  Next
End Sub