VBA ファイルのシートをコピー新しいブックとして作成。その後複製したいです

Question

前提・実現したいこと

ファイル内の2シートをコピーして新しいブックとして保存し、
その後作成したファイルを複製するというマクロを作成したいです。
しかし私が作成したコードだとファイルを複製する箇所でエラーになり、原因がわからずにいます。
解決のために知恵をお貸しください。

【作成したマクロの概要】
元ファイルの2シートをAシート、Bシート
新ファイルの2シートをA'シート、B'シートと記載します。

①　元ファイルのAシート・Bシートをコピー
②　①を「テンプレート.xlsx」という名前をつけて、元ファイルと同じフォルダに保存
③　②で作成したファイルのB'シートのデータがある範囲をコピー
④　③でコピーしたセルをB'シートのA1セルに値で貼り付け
⑤　テンプレートファイルを上書き保存
⑥　テンプレートファイルを、ファイル名を指定して同じフォルダに複製

【その他質問】
Bシートは、元ファイルのCシートを参照しています。
そしてAシートはBシートを参照しています。
（Cシート←（参照）←Bシート←（参照）←Aシート）
AシートとBシートを分けて、テンプレートファイルにコピーしても、
A'シートの参照がB'シートになる方法はあるのでしょうか？
（BシートをB'シートにコピーしてから値で貼り付けするのではなく、
BシートからB'シートに直接値で貼り付けしたいのですが、
そうするとA'シートの参照先が、元ファイルのBシートになってしまいます。）

発生している問題・エラーメッセージ

下記コードの★の箇所で、「アプリケーション定義またはオブジェクト定義のエラーです」となります。
その後の処理でもエラーにある可能性はありますが、まだ確認はできておりません。
→解決しました

下記コードの★の箇所で「オブジェクトが必要です」となります。

該当のソースコード

Option Explicit

Dim mFSO As FileSystemObject

Sub シート分割複製()

    Dim myPath, folderPath As String
    Dim newBook As Workbook
    Dim rng As Range
    
    Set mFSO = New FileSystemObject
    myPath = ThisWorkbook.Path
    folderPath = mFSO.GetFolder(myPath)

    'Aシート、Bシートをコピー
    Worksheets(Array("Aシート", "Bシート")).Copy
    '新しいブックとして保存
    ActiveWorkbook.SaveAs Filename:=folderPath & "\テンプレート" & Format(Now(), "yyyymmdd"),  _
                          FileFormat:=xlOpenXMLWorkbook
    Set newBook = ActiveWorkbook

    'B'シートのデータ範囲をコピー '~~/★ここでエラーになります~~　→解決しました
    With newBook.Worksheets("Bシート")
        Set rng = .Range(.Cells(1, 1), _ 
                   Cells(.Cells(Rows.Count, 2).End(xlUp).Row, _
                         .Cells(21, Columns.Count).End(xlToLeft).Column))
    'B'シートは複数テーブルがあり「.CurrentRegion」では正しくデータを取得できないため、
　　'上記のようにセル範囲を取得しています

        rng.Copy
        'A1セルに値で貼り付け
        .Range("A1").PasteSpecial Paste:=xlPasteValues
    End With

    Application.CutCopyMode = False

    newBook.Save
    newBook.Close

    'テンプレートファイルを同じフォルダに複製 '/★ここでエラーになります
    FileCopy newBook, "folderPath" & "AAAファイル" & Format(Now(), "yyyymmdd") & ".xlsx"""
    FileCopy newBook, "folderPath" & "BBBファイル" & Format(Now(), "yyyymmdd") & ".xlsx"""
    FileCopy newBook, "folderPath" & "CCCファイル" & Format(Now(), "yyyymmdd") & ".xlsx"""
    FileCopy newBook, "folderPath" & "DDDファイル" & Format(Now(), "yyyymmdd") & ".xlsx"""

End Sub

Comments

[meg_]

・Excelのバージョンは何ですか？
・Excel2013で質問のコードを試したところ「Sub シート分割・複製()」で”不正な文字です”とのコンパイルエラーが出ますが、そちらでは出ませんでしたか？

[momo2134]

バージョンはO365 MSO（32ビット）です。
ご指摘の箇所に関して、ご質問させていただくにあたり変更させていただいた箇所で、誤りがあったようです。申し訳ございませんでした。

Answer 1

追加でさせていただいた質問は、下記コードで解決しました。
ありがとうございました。

    FileCopy folderPath & "\テンプレート_" & Format(Now(), "yyyymmdd") & ".xlsx", _
                folderPath & "\AAAファイル_" & Format(Now(), "yyyymmdd") & ".xlsx"

Answer 2

Set rng = .Range(.Cells(1, 1), _
    Cells(.Cells(Rows.Count, 2).End(xlUp).Row, _
    .Cells(21, Columns.Count).End(xlToLeft).Column))

を

Set rng = .Range(.Cells(1, 1), _
    .Cells(.Cells(.Rows.Count, 2).End(xlUp).Row, _
    .Cells(21, .Columns.Count).End(xlToLeft).Column))

に変更したら質問のエラーは無くなりました。

Comments

[momo2134]

ご回答いただきありがとうございました。
いただいたコードに修正したところ、質問させていただいたエラーは解消しました。

しかし、テンプレートファイルを複製する箇所で再度エラーになってしまいました。
FileCopy newBook, "folderPath" & "AAAファイル" & Format(Now(), "yyyymmdd") & ".xlsx"""
上記箇所で、「オブジェクトが必要です。」のエラーになってしまいます。
テンプレートファイルと同じフォルダに、「AAAファイルyyyymmdd.xlsx」と名前をつけて複製したいのですが、解決方法をご存知でしたら、ご教示いただけませんでしょうか？
（質問の内容も更新します）

[momo2134]

追加でさせていただいた質問も解決しました。
ご回答いただきありがとうございました。