Макросы и функции VBA

Макрос "Удаление строк"

Удаляет строки таблицы (листа).

Пространство под таблицей при удалении строк вместе с содержимым сдвигается вверх.

Sub Удаление_Строк_Таблицы()
   
    Dim list As Worksheet, lr As Long
    Set list = Sheets("Лист1")
    lr = list.Cells(list.Rows.Count, "A").End(xlUp).Row
    list.Rows("1:" & lr).Columns("A:XFD").Delete Shift:=xlUp
   
End Sub