Комфорт и автоматизация

Очищаем лист

'Полное очищения листа от всех данных и форматов

Public Sub ClearSheet(sh As Worksheet)

  With sh
    .Activate 'Активируем лист
    .Cells.Clear 'Очищение
  End With

End Sub

Очистить лист можно и в одну строку.

Макрос очищает ячейки, но при этом не трогает их ширину и высоту. Если какие-то из ячеек были растянуты, то их размеры так и останутся «неестественными». Чтобы лист после очистки был как «новенький» по всем параметрам — вопользуйтесь таким макросом:

Public Sub ClearSheet(sh As Worksheet)

  With sh
    .Activate 'Активируем лист
    .Cells.Select 'Выделяем все ячейки
    Selection.Delete Shift:=xlUp 'Удаляем все ячейки со сдвигом вверх
    Range("A1").Select 'Активруем самую первую ячейку
  End With

End Sub