VB使用多个目标将excel从一个工作表复制并粘贴到另一个工作表

Question

我想要完成的是我有一个每日更新的Excel工作表。我想实现一个脚本，该脚本从这些单元格中获取数据，并通过按钮将它们添加到另一个工作表上的下一个可用单元格中。我有一个基本代码，通过将一系列单元格复制到下一个可用空白单元格的其他工作表。但这就是我想要在sheet1上的单元格A1（这是一个日期）需要复制到sheet2上的A7，G7，M7，A34，G34和M34。然后B2，B3，B4，B5从sheet1复制到sheet2上的B7，C7，D7，E7。然后C2，C3，C4，C5从sheet1到H7，I7，J7，K7在sheet2上。

工作表1单元格永远不会仅更改用户放入这些单元格的数据。单击按钮后，Sheet2单元格必须向下移动

我正在玩的代码

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

Set copySheet = Worksheets("Sheet1")
Set pasteSheet = Worksheets("Sheet2")

copySheet.Range("A1").Copy
pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

也许我正在使用的图片会有所帮助

这是用户输入每日数据的地方：

这是数据需要填充的地方：