Очищаем лист

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

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