Kopieren Sie die Zeile und fügen Sie sie in die geschlossene Arbeitsmappe ein

Ich möchte in der Lage sein, eine Zeile auszuwählen und sie zu kopieren und (mit einer Befehlsschaltfläche) in eine geschlossene Arbeitsmappe einzufügen, die geschlossen bleibt. Der folgende Code kopiert alles unterhalb eines Bereichs. Ich möchte nur die ausgewählte Zeile kopieren.

Dies sind die Zeilen, die geändert werden müssen:

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 

Der vollständige Code:

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

Vielleicht so etwas wie:

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

Es kopiert, öffnet das Zielblatt, findet die nächste Zeile so, wie Sie es bereits getan haben, fügt sie dann ein und schließt sie.