Форум по VBA и MS Office

Sub Макрос()

    Dim sh As Worksheet


    ' Отключение монитора, чтобы ускорить макрос.
        ' Если много формул, то можно ещё отключить формулы.
    Application.ScreenUpdating = False
   
    '1. Движение по всем листам.
    For Each sh In Worksheets
        '1) Удаление строк.
        sh.Rows("1:5").Delete
        '2) Удаление столбцов.
        sh.Range("A:A,C:D").Delete
    Next sh
   
    ' Сообщение.
    Application.ScreenUpdating = True
    MsgBox "Готово.", vbInformation

End Sub