从一个工作簿复制一个范围并粘贴到另一个VBA表单

我使用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 

我怎样才能修改这个或使用粘贴到模板工作簿（我将运行的代码）？

问候，马克