如何根据条件复制数据并自动使用VBA粘贴到另一个工作簿

Question

每周大约生成40份报告并存储在week10.xlsx中。因此，week10.xlsx有40个工作表。在每个报告中，将有三个表格，其中重要的表格是中间的，在＆＃34;摘要＆＃34;之间。和＆＃34;整体＆＃34;。

是否可以通过选择和复制＆＃34;摘要＆＃34;中的任何数据来进行VBA。和＆＃34;整体＆＃34;？然后，数据需要粘贴到另一个名为Tracker.xlsm的工作簿中。跟踪器包含40个工作表（例如A1，A2，A3 .. A40）。与此情况一样，此ReportA1中的数据应粘贴到工作表A1中。

现在，我这样做更像是手动：

x.Worksheets("week10_a1").Range("A9:G19").Copy
y.Worksheets("A1").Range("A" & Rows.Count).End(xlUp).Offset(3).PasteSpecial xlPasteValues

然而，表的元素不知何故无法修复，因此我需要每周检查并更改范围。是否有更好的方法使用VBA，以便我可以在下周复制数据＆＃34;摘要＆＃34;和＆＃34;整体＆＃34;自动？