複数シートに同じ処理を行いたい

Question

前提・実現したいこと

VBAで複数シートに同じ処理を行いたいです。

〇処理
各シートの２行目から最終行までデータをクリアしたい。
１行目に項目名が書かれており、A列～G列までデータが格納されている。

以下のようなシートがあります。
・メイン
・01～10 ※二桁の数字で増えることもあります
・計算用

該当のソースコード

Sub 一括クリア()
    '画面更新停止
    Application.ScreenUpdating = False
    Sheets(Array("01", "02", "03", "04", "05", "06", "07", "08", "09", "10")).Select
    Sheets("01").Activate

    Rows("2:450").Select '450以上行があった場合どうするか
    Selection.ClearContents
      
End Sub

試したこと

Range("A1").CurrentRegion.Offset(1, 0).ClearContents
を使って削除しようとしたところ、01シートはうまくいきましたが、他のシートが01の最終行までしか削除されませんでした。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。