Hi,

ich möchte von einer Datei in eine andere immer nur die neuesten Zeilen kopieren

dazu hab ich folgende VBA Code generiert, allerdings kopiert der immer alles in die erste leere Zeile der Zieldatei :(
anhand der MEssagebox sehe ich, dass er die letzen Zeilen richtig erkennt
irgendwie bekomme ich es nicht hin, dass er nur die neuesten Zeilen kopiert

danke für eure Hilfestellung

Sub KopiereNeueZeilen_SharePoint()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim lastRow1 As Long, lastRow2 As Long
Dim i As Long

'Notwendige Sheets öffnen
Workbooks.Open "F:\Test2.xlsx"
Workbooks.Open "F:\Test1.xlsm"


' Arbeitsblätter definieren
Set ws1 = Workbooks("Test2.xlsx").Sheets("Daten") ' Das Blatt, das durchsucht wird
Set ws2 = Workbooks("Test1.xlsm").Sheets("Rohdaten") ' Das Blatt, in das kopiert wird

' Letzte Zeile in beiden Blättern bestimmen
lastRow1 = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row '
MsgBox lastRow1

lastRow2 = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Offset(1).Row
MsgBox lastRow2

' Kopiere nur neue Daten (basierend auf dem Wert in Spalte A)

ws1.Range("A2:C" & lastRow1).Copy ws2.Range("A" & lastRow2)



End Sub