我正在尝试找出最快的 Loop 方法，以将一系列列（“ A16：J1338”）从源工作簿复制到特定工作簿的特定列（C1）， 10倍。我想在宏中将数据粘贴到最后一个可用的空白单元格下面（在COL C下）

这是我的代码；

Sub copy_Loop()
Dim LastRow As Long
Range("A16:J1338").Select
Selection.Copy
Workbooks.Open "C:\Users\Manzurfa\Desktop\1. Forecast Amalgamation.xlsx"
Range("C1").Select
activeSheet.Paste
Windows("Merrell CA Forecast Template - Alain Travers.xlsm").activate
Range("K18:O1338").Select
Selection.Copy
Windows("1. Forecast Amalgamation.xlsx").activate
Range("K3").Select
 Selection.PasteSpecial Paste:=xlPasteValues,Operation:=xlNone,SkipBlanks _
    :=False,Transpose:=False
Windows("Merrell CA Forecast Template - Alain Travers.xlsm").activate
Range("A16:J1338").Select
Selection.Copy
 Windows("1. Forecast Amalgamation.xlsx").activate     
Range("B1").Select
Selection.End(xlDown).Select
activCell.Offset(0,1).Select
Selection.End(xlUp).Select
activCell.Offset(1,0).Select
activeSheet.Paste

activeWorkbook.Save
End Sub

列（“ A16：J1338”）之间有空白行，我希望宏忽略空白并在最后可用的空白单元格下循环复制粘贴。

我将非常感谢您对此提供的任何帮助。