初心者【VBA：「アプリケーション定義またはオブジェクト定義のエラーです。」】→アクティブシートの選択ミス解決方法

Question

どなたかご教示のほどお願いいたします。
本日業務終了につき、返信が月曜日になってしまいます。
【更新】-------------------------------------------------------------------------------------------------------
→今回の問題は、cellsに対するアクティブシートが記述されていなかったことが原因でした。初心者の方は、アクティブシートを考慮する記述をする際に、コードTOPでbookの選択をしておけば、1文上における後述においてそのbookが参照されるものと考えがちと思いますが、cellsに関してはまた違うようです。今回はその具体的な解決方法と要因について回答いただきました。

▼概要
VBAにおいてエラーが発生してしまいます。初心者です。★の部分の文でエラーが発生してしまいます。
▼目的
ThisWorkbookにある、セル範囲「"A2:AC29"」までの値を、newBookのセル範囲「"A2:AC29"」にコピーしたいです。
尚、最終的に太文字部の数値「2」をFor文で回そうとしております。For文はわかるので大丈夫なのですが、For文を使用する以前にエラーと
なります。For文を前提としたコードを記述したいです。

▼エラー内容
「アプリケーション定義またはオブジェクト定義のエラーです。」

▼コード
Dim newBook As Workbook
Set newBook = Workbooks.Add
★エラー部分↓
newBook.Worksheets(1).Range(Cells(MaxRow, 1), Cells(MaxRow, 29)).Value = ThisWorkbook.Worksheets(1).Range(Cells(2, 1), Cells(2, 29)).Value

▼試したこと
→つぎのコードで一応転記はできましたが、最終的にはFor文を使用して上記の太文字部分をiに変えて回したいので却下になりました。
どうにもセル範囲を変数を利用して記述することができていないようです。
newBook.Worksheets(1).Range("A" & MaxRow).EntireRow = ThisWorkbook.Worksheets(1).Range("A2:AC2").Value

Answer 1

ThisWorkbook.Worksheets(1).Range(Cells(2, 1), Cells(2, 29)).Value

ThisWorkbook.Worksheets(1)内で他のシート(アクティブシート)のCellsを使用しているのでエラーが発生しています。

今現在アクティブなものが何なのかを認識してコードを書きましょう。

Answer 2

'newBook.Worksheets(1).Range(Cells(MaxRow, 1), Cells(MaxRow, 29)).Value = ThisWorkbook.Worksheets(1).Range(Cells(2, 1), Cells(2, 29)).Value 

newBook.Worksheets(1).Range(newBook.Worksheets(1).Cells(MaxRow, 1), newBook.Worksheets(1).Cells(MaxRow, 29)).Value = ThisWorkbook.Worksheets(1).Range(ThisWorkbook.Worksheets(1).Cells(2, 1), ThisWorkbook.Worksheets(1).Cells(2, 29)).Value 

Comments

[masafumi55]

kuma_kuma_様
　いつもお世話になっております。具体的な回答ありがとうございます。解決いたしました。
はじめての質問で回答をいただき少しばかり感動しております！誠にありがとうございました。

meg_様
　いつもお世話になっております。今回のエラーに関する要因についてご説明いただきまことにありがとうございました！そのおかげで正解コードの意味を正しく理解することにつなげることが出来ました！
とても感謝しております。誠にありがとうございました！

[masafumi55]

尚、勝手ながら、今回は具体的な解決コードをご教示いただいたkuma_kuma_様をベストアンサーにさせていただきましたが、meg_様にもコードを正しく理解するご説明いただき誠に感謝しております。
改めてありがとうございました。