VBA 代码应粘贴在每个工作表的特定工作表之后

Question

我有一些数据点在每张工作表中都是唯一的，并且需要将相同的唯一数据点粘贴为同一工作表中的值，但范围不同

我已经写下了 VBA 代码，用于在同一张表中复制粘贴

Sub EOD()

 Dim i As Long

For i = 4 To ThisWorkbook.Worksheets.Count

Range("B11:G150").Select
Selection.Copy
Range("AA11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Range("Q11:V150").Select
Application.CutCopyMode = False
Selection.Copy
Range("AG11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Range("AA13").Select

 Next

End Sub

但是此代码从第 4 表复制数据并粘贴到其他表中

我在上面的代码中尝试的是，从“B11:G150”范围复制数据并将其粘贴到单元格“AA11”的同一工作表中，然后从“Q11:V150”范围复制数据并将其粘贴到单元格“AG11”的同一工作表中"

此循环应在第 3 张纸（从第 4 张纸）之后开始并运行到最后一张纸

请帮忙。 谢谢