搜索复制并粘贴vba中的行

Question

我想搜索数据并将整行复制到另一张表。我能够找到所需的细节，并能够获得单元格的地址。请告知如何在另一张表的最后一行复制此行和过去。

Set cell = Sheet2.Range("D1:D1048576").Find("5034030", LookIn:=xlValues)
MsgBox cell.Address