VBA 新規ブックに指定範囲のデータを転記する方法

Question

やりたいこと

Book１の2行目のデータを、新規追加したBookに転記したい

試したこと

Set newWb = Workbooks.Add
'ファイル作成
newWb.SaveAs Filename:="C:\sample\test.xlsx"
'データ書き込み
ThisWorkbook.Worksheets("Sheet1").Range(Cells(2, 1), Cells(2, 46)) = ActiveWorkbook.Worksheets("Sheet1").Range(Cells(1, 1), Cells(1, 46))
        

Workbooks.Addで新規追加したブックがアクティブになると思い、転記先の指定はActiveWorkbookとしています。
上記コードでファイル作成まではできています。

症状

「'データ書き込み」の下の行で以下のエラーが出ます。

実行時エラー'1004':
アプリケーション定義またはオブジェクト定義のエラーです。

色々なサイトを見ましたが、書き方で間違っているところが特定できませんでした。

Comments

[m.ts10806]

いきなり書き込むのではなく「選択したデータを取得ができてるか」が先では？

[begginer_class]

ThisWorkbook.Worksheets("Sheet1").Cells(2, 1)
や、
ActiveWorkbook.Worksheets("Sheet1").Cells(1, 1)
ではMsgboxを使用して取得できているのを確認しました。
範囲ごとMsgboxに出力する方法がわからずRange()では確認できていません。
Range()の中身を確認する方法をご教示くださいませんか？

Answer 1

ここを

ThisWorkbook.Worksheets("Sheet1").Range(Cells(2, 1), Cells(2, 46)) = ActiveWorkbook.Worksheets("Sheet1").Range(Cells(1, 1), Cells(1, 46))

こんな感じで。どこのCellsか指定しないと
アクティブシートのCellsと判断されるので不整合が起きてエラーになります。

With ThisWorkbook.Worksheets("Sheet1")
    .Range(.Cells(2, 1), .Cells(2, 46)) = ActiveWorkbook.Worksheets("Sheet1").Range(Cells(1, 1), Cells(1, 46))
End With

Comments

[begginer_class]

ありがとうございます。With句を使用して.Cellsとすることで転記ができるようになりました。

Answer 2

Range の中のCells の使い方が間違っています。
Cellsはアクティブなシートのセルを表すので、
ThisWorkbook.Worksheets("Sheet1").Range(Cells(2, 1), Cells(2, 46))
はマクロを実行しているブックのシート1の中でアクティブなシート(新しいブックのSheet1)の2行1列から2行46列 という意味になります。

これを回避するにはCellsがどこに所属しているか書く必要があります。

Dim NewBook As Workbook '変数は宣言しましょう
Set NewBook = Workbooks.Add()
Dim sh As WorkSheet
Set sh = NewBook.Sheets(1)
Dim Range1 As Range
Set Range1 = Range(sh.Cells(2, 1), sh.Cells(2, 46))
みたいな感じです。