макрос удаление пустых строк в excel

Ответ от Serge[гуру]
В Ехеле понятие строк специфическое
Тем более, понятие пустых строк
Вот макрос для строк пустых во всех ячейках:
Sub DelRows()
r = 1
For x = 1 To 100 'Надо задать какое-то конечное число строк
If Range("A" & r).Value = "" Then
Range("A" & r).EntireRow.Delete Shift:=xlUp
Else
r = r + 1
End If
Next
End Sub
Проверка идёт по столбцу "А"
Если структура более сложная, пиши в Агент
Спасибо!