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

我有一个工作簿，并试图从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