在VBA

Question

我正在运行一个宏来复制一个单元格并将其粘贴到工作表（“跟踪器”）中的 B列中。这部分代码运行良好。然而我的挑战来自我想要修改宏以便我能够将C2，E1，E2，E6，A8从表格（“Sheet1”）复制到列D，I，k，H成片（“追踪者”）。

我的代码是

Sub Create_Invoice()
Application.ScreenUpdating = False
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet

Set copySheet = Worksheets("Sheet1")
Set pasteSheet = Worksheets("Tracker").ListObjects("Table1").DataBodyRange


copySheet.Range("C1").Copy


pasteSheet.Cells(Rows.Count, "C").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub

是否有更有效的方法来应用代码，而不是重复多次。