VBA将列复制到现有表中

VBA noob在这里。 我有仪表板，主表和总表。 我创build了一个macros，当按下“创build副本”button时，主表被复制到基于列表命名的新“工具”表中。 创build新图纸后，我希望将这些新图纸中的每个特定列复制到聚合中（或作为新的表格列插入）。 当被添加的纸张数量和名称是可变的时候是很困难的。

以下是创build新工作表的代码：

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 

提前致谢！