Sub シート全体をクリア削除する()

    Cells = ""
    
End Sub

Cells = null や その他たくさん方法がありますが、個人的にはこれが一番読みやすく軽いため 多用しています。