excel - あるワークブックから範囲をコピーし、別のVBAシートに貼り付けます

Question

VBAを使用してコードを実行しています。ディレクトリをループしてファイルをプルすることから始めます。

私の目標は、範囲をコピーしてテンプレート ワークシートに貼り付けることです。

コピーコードは次のようになります。

Dim StrFile As Variant
For Each StrFile In var

Workbooks.Open (loc1 & StrFile)

    sh.Activate
    On Error Resume Next
    Set uBOM = Cells.Find(What:="No.", After:=[A1], LookIn:=xlFormulas, _
    LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False)
    Range(Cells(uCost.Row + 1, uCost.Column), Cells(uCost.Row.End(xlDown), uCost.Columnn + 4)).Copy
    On Error GoTo 0

Next StrFile

これを変更したり、これを使用してテンプレート ワークブック (コードを実行するワークブック) に貼り付けたりするにはどうすればよいですか?

よろしく、 マーク