VBAで2回目以降のエラーについて

Question

やりたいこと
開くたびに２つのシートのセル内容を削除したい。
Sheet1⇒すべて削除
Shhet2⇒A2から最終行列を削除（1行目だけは残す）

試したこと

Sub セル削除()
　ThisWorkbook.WorkSheets("Sheet1").Cells.Clear
  ThisWorkbook.WorkSheets("Sheet2").Range("A2", Cells(Rows.Count, 1).End(xlUp)).EntireRow.Delete
End Sub

症状
1回目はこれでうまくいくのですが、2回目以降でSheet2のスクリプトを走ろうとするとき「実行時エラー'1004': アプリケーション定義またはオブジェクト定義のエラーです。」と言うエラーが出てしまう

MSで2回目以降エラーになる件について解説があったのですが、そちらを見てもよく理解できませんでした。
エラーの解消方法をご教示ください。

Comments

[DreamTheater]

エラーが発生するのはSheet1ですかSheet2ですか？

[stdio]

多文Sheet2でしょうね。Cells.Clearでエラーが発生することは、sheetが無かった時だけですので...
「アプリケーション定義またはオブジェクト定義のエラーです。」はその意味の通り、内部にそんな名前のメソッドやメンバーが含まれていないことや、そんな名前のクラスや構造体、変数がない場合に表示されるエラーです。

[begginer_class]

@DreamTheater さま
Sheet2の処理の部分でエラーとなります。

Answer 1

元のコードではSheet2がアクティブでなければエラーになります。
Cells(Rows.Count, 1).End(xlUp)がアクティブシートのセルを指しています。シートを指定しましょう。

ThisWorkbook.Worksheets("Sheet2").Range("A2", ThisWorkbook.Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp)).EntireRow.Delete

Answer 2

下記でエラーは発生しなくなると思います。

Sub セル削除()
　ThisWorkbook.WorkSheets("Sheet1").Cells.Clear
  ThisWorkbook.WorkSheets("Sheet2").Range("A2", ThisWorkbook.WorkSheets("Sheet2").Cells(Rows.Count, 1).End(xlUp)).EntireRow.Delete
End Sub

ただ2回目を実行するとSheet2の1行目のデータも消えました。