Sub DeleteEmptyRows()
    
    ' Удаление пустых строк с листа (из таблицы)
    ' Применяется при подготовке  таблиц где требуется автоматически удалить пустые строки
    '
    '
    LastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count    'определяем размеры таблицы
    Application.ScreenUpdating = False
    For r = LastRow To 1 Step -1           'проходим от последней строки до первой
        If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete   'если в строке пусто - удаляем ее
    Next r
End Sub