从一个工作簿复制范围并粘贴到另一个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

如何修改或将其粘贴到模板工作簿（我将从中运行代码）？

此致 马克