VBA将列复制到现有表中

这里没有。我有仪表板、主表和汇总表。我创建了一个宏，这样当按下“创建副本”按钮时，母版图纸将复制到基于列表命名的新“工具”图纸中。创建新工作表后，我希望将每个新工作表中的特定列复制到聚合中（或作为新表列插入）。当添加的图纸数量及其名称可变时，这很困难

以下是创建新图纸的代码：

Sub CreateSheetsFromAList()
Dim MyCell As Range, MyRange As Range
Dim tbl As ListObject

Set MyRange = Sheets("Dashboard").Range("A24:A28")
Set MyRange = Range(MyRange, MyRange.End(xlDown))

For Each MyCell In MyRange
    Sheets.Add after:=Sheets(Sheets.Count) 'creates a new worksheet
    Sheets(Sheets.Count).Name = MyCell.Value ' renames the new worksheet
    Worksheets("RTM - Master").Cells.Copy ActiveSheet.Range("A1")
    ActiveSheet.ListObjects(1).Name = MyCell.Value
    ActiveSheet.Cells(1, 6).Value = MyCell.Value & " " & "Capability"
    ActiveSheet.Cells(1, 7).Value = MyCell.Value & " " & "LOE"
    ActiveSheet.Cells(1, 8).Value = MyCell.Value & " " & "Pts"
    Range("f1", Range("f1").End(xlDown)).Select
Next MyCell
End Sub

提前谢谢