重复复制和粘贴具有不同数据列的特定表

Question

我有一个如下数据库：

如何使用vba代码使它像这样：

我是VBA的新手，所以这是我尝试过的事情：

Dim lastRow As Long, lastRowMaster As Long

Application.ScreenUpdating = False
lastRow = Sheets("database").Range("a65536").End(xlUp).Row
lastRowMaster = Sheets("combine").Range("a65536").End(xlUp).Row


Sheets("database").Range("A2:AO" & lastRow).Copy 
Destination:=Sheets("combine").Range("A" & lastRowMaster + 1)
Sheets("database").Range("AP2:AS" & lastRow).Copy 
Destination:=Sheets("combine").Range("AP" & lastRowMaster + 1)

Application.ScreenUpdating = True

它可以将我想要的内容复制到目标工作表，但是当我添加另一列进行合并时，原始数据将被覆盖。

lastRow = Sheets("database").Range("a65536").End(xlUp).Row
lastRowMaster = Sheets("combine").Range("a65536").End(xlUp).Row


Sheets("database").Range("A2:AO" & lastRow).Copy 
Destination:=Sheets("combine").Range("A" & lastRowMaster + 1)
Sheets("database").Range("AP2:AS" & lastRow).Copy 
Destination:=Sheets("combine").Range("AP" & lastRowMaster + 1)
Sheets("database").Range("A2:AO" & lastRow).Copy 
Destination:=Sheets("combine").Range("A" & lastRowMaster + 1)
Sheets("database").Range("AT2:AW" & lastRow).Copy 
Destination:=Sheets("combine").Range("AP" & lastRowMaster + 1)