Excel VBA - Удаление пустых строк

Я хочу удалить пустые строки, которые генерирует ERP Quotation. Я пытаюсь пройтись по документу (A1:Z50) и для каждой строки, где в ячейках нет данных (A1-B1...Z1 = пусто, A5-B5...Z5 = пусто) я хочу удалить их.

Я нашел это, но не могу настроить это для себя.

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