Excel VBA-使用动态粘贴位置从一个工作簿复制和粘贴到另一个工作簿

我有50个excel工作簿，每个工作簿（“VAL”）的同一页中都有相同范围的“SensResultsCopy”。我想将这些工作表中的数据复制到打开的工作簿中。要从中复制的工作簿是动态的，并且取自范围（“ProjModel”），但我不知道如何使粘贴到位置动态。每个工作簿中的数据都需要进入其自己的工作表，该工作表中有一个数据需要进入的命名范围，因此工作簿1的数据需要进入名为“1”的工作表和名为“SensResPaste1”的范围，工作簿2的数据需要进入名为“2”的工作表和名为“SensResPaste1”的范围，等等。我想使用范围“ActiveProjModel”使VBA的这一部分成为动态的，以确定要粘贴到的图纸和范围“PasteRange”：

y、 图纸（“1”）范围（“SensResPaste1”）

目前，我只知道如何对特定的表和范围执行此操作，即在上面的示例中，表1。完整代码如下。谢谢

Sub DataCapture2()

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False

Dim x As Workbook
Dim y As Workbook
Dim ws1 As Worksheet

'## Open both workbooks first:
Set y = ThisWorkbook
Set x = Workbooks.Open(Range("ProjModel"))

'Copy from x:
x.Sheets("VAL").Range("SensResultsCopy").Copy

'Paste to Worksheet in y:
y.Sheets("1").Range("SensResPaste1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

'Close x:
x.Close