Werte von einer Mappe in eine andere Mappe kopiere

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim myrow
Dim mycell
Dim wksQ As Worksheet
Dim wksZ As Worksheet
mycell = ActiveCell.Address
Set wksQ = Worksheets("Tabelle2") ' Anpassen deine Quelldatei
Set wksZ = Worksheets("Ziel")     ' Anpassen deine Zieldatei
wksZ.Activate
myrow = wksZ.Cells(Rows.Count, 1).End(xlUp).Row + 1 'die erste freie Zeile in der Zieldatei
wksZ.Cells(myrow, 1).Select
wksQ.Range(mycell).EntireRow.Copy  ' Wenn Copy durch Cut ersetzt wird, wird ausgeschnitten
wksZ.Paste
Application.CutCopyMode = False  'Kopier- oder Ausschneidemodus wird beendet
End Sub