VBA从工作簿复制到另一个工作簿

Question

我有一个工作簿，我试图每次从A3：AP3复制相同的行并使用下面的代码将其粘贴到相同范围内的另一个已关闭的工作簿中，它确实有效，但是它做了两次并且它不想要在目标工作簿中添加更多行，我不知道是什么问题

Sub copytoclosed()
Dim destSht As Worksheet
Dim destwb  As Workbook
Dim copyrow, destlrow As Long
Workbooks.Open ("C:\Users\mgamal22\Desktop\sahar\New\DataBase.xlsx")
Set destSht = ActiveWorkbook.Worksheets("Sheet1")
With ThisWorkbook.Worksheets("Records")
    With .Range(.Range("A3:AP3"), .Range("A3:AP3").End(xlDown))
        destSht.Cells(destSht.Rows.Count, 1).End(xlUp).Offset(1).Resize(.Rows.Count, .Columns.Count).Value = .Value
    End With
End With
destSht.Parent.Close True
End Sub