Salin dan tempel baris ke buku kerja yang ditutup

Saya ingin dapat memilih baris dan menyalin & menempelkannya (Dengan tombol perintah) ke buku kerja tertutup yang tetap ditutup. Kode di bawah ini menyalin segala sesuatu di bawah kisaran. Saya hanya ingin menyalin baris yang saya pilih.

Ini adalah baris yang perlu diubah:

With ThisWorkbook.Worksheets("Sheet1")
With .Range(.Range("A4:Q4"), .Range("A4:Q4").End(xlDown))
destSht.Cells(destSht.Rows.Count, 1).End(xlUp).Offset(1).Resize(.Rows.Count, .Columns.Count).Value = .Value 

Kode lengkap:

Sub copytoarchive()
Dim destSht As Worksheet
Workbooks.Open ("C:\...\FileToCopyTo.xlsx") 
Set destSht = ActiveWorkbook.Worksheets("Sheet3") 
With ThisWorkbook.Worksheets("Sheet1")
With .Range(.Range("A4:Q4"), .Range("A4:Q4").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

Mungkin sesuatu seperti:

Sub copytoarchive()
Dim destSht As Worksheet

Selection.Copy

Workbooks.Open ("C:\...\FileToCopyTo.xlsx")
Set destSht = ActiveWorkbook.Worksheets("Sheet3")

destSht.Activate
Range("A1").Select
destSht.Cells(destSht.Rows.Count, 1).End(xlUp).Offset(1).Select
ActiveSheet.Paste

destSht.Parent.Close True

End Sub

Ini menyalin, membuka lembar target, menemukan baris berikutnya seperti yang sudah Anda lakukan, lalu menempel dan menutup.