✨ Удаление пустых строк 1
Поиск пустых строк должен осуществляться снизу вверх, чтобы при их удалении не возник бесконечный цикл.

1️⃣ Удаление пустых строк со всего листа

Sub Primer1()
Dim n As Long, i As Long
'Определяем номер строки последней ячейки
'используемого диапазона на рабочем листе
n = Cells.SpecialCells(xlLastCell).Row
    'Ищем и удаляем пустые строки
    For i = n To 1 Step -1
        If Rows(i).Text = "" Then Rows(i).Delete
    Next
End Sub

2️⃣ Удаление пустых строк из заданного диапазона

Sub Primer2()
Dim n As Long, i As Long, myRange As Range
Set myRange = Range("A1:G200")
    With myRange
        n = .Rows.Count
        For i = n To 1 Step -1
            If .Rows(i).Text = "" Then .Rows(i).Delete
        Next
    End With
End Sub

#VBA #ExcelVBA #xlLastCell #RowsDelete #УдалениеПустыхСтрок