シート番号を指定して一括で別のブックへコピーしたい

Question

ブックを2枚開いてそれぞれをメインのブックのシートの2枚目と3枚目へコピー

【困っていること】
2枚のブックのシート番号を指定してコピーしたいがエラーになってしまう


```VBA
コード

Sub 算出()
Dim path As String
Dim text1 As String 'ブック1
Dim text2 As String 'ブック2
Dim file1 As String
Dim file2 As String

path = ThisWorkbook.Worksheets(1).Cells(1, 2).Value
text1 = "ブック1自動化.xlsm"
text2 = "ブック2自動化.xlsm"

'ブック1をコピー
Workbooks.Open Filename:=path & text1
WorkSheets(3).Cells.Copy After:= ThisWorkbook.Worksheets(2).Cells
ActiveWorkbook.Close SaveChanges:=False

'ブック2をコピー
Workbooks.Open Filename:=path & text2
WorkSheets(3).Cells.Copy After:= ThisWorkbook.Worksheets(2).Cells
ActiveWorkbook.Close SaveChanges:=False

End Sub

至らないこともあると思いますが、ご教授頂けると幸いです。

Comments

[y_waiwai]

このままではコードが読みづらいので、質問を編集し、</>(コードの挿入)ボタンを押し、出てくる’’’の枠の中にコードを貼り付けてください
また、エラーが出たなら、エラーメッセージを提示しましょう
エラーメッセージは、よけいな省略翻訳しないで出たそのママをコピペで提示してください

[somechan1]

ご確認ありがとうございます。
コードを挿入ボタンので修正し、日本語などは消去致しました。
ご教授頂けると幸いです。