软件:excel
版本:2013
想请各位大大帮忙看看以下案例如何缩短VN指令码
目前我有两笔excel档案，一笔名为"PACK"，一笔为现正开启中档案"A"，
我想要将PACK中固定范围分别依序复制贴到目前开启中档案的各个工作表
中，因为每次"PACK"的资料笔数不固定但不会超过50笔，而"A"的工作表数
也是不固定的，但会和"PACK"的资料笔数相同。因为我是新手所以目前只能
土法炼钢，不管有几笔资料要截取，都让它抓50笔试试看。
EX:
Sub 复制贴上()
s = ThisWorkbook.Name
Filename = "X:\PACK.xls"
Workbooks.Open Filename
Workbooks("PACK").Worksheets("工作表1").Range("A4:J5").Copy _
Destination:=Workbooks(s).Sheets(1).[A8]
Workbooks("PACK").Worksheets("工作表1").Range("A6:J7").Copy _
Destination:=Workbooks(s).Sheets(2).[A8]
.
.
.
Workbooks("PACK").Worksheets("工作表1").Range("A82:J83").Copy _
Destination:=Workbooks(s).Sheets(40).[A8]
这样跑的过程会出现"执行阶段错误、阵列索引超出范围"的错误讯息，虽然
需要截取的资料仍能顺利抓到，但因为指令只会执行到实际有资料的笔数，
所以在后面的有些调整格式指令就通通都不会执行下去。