Hallo zusammen,
hatte schon mal heute fast die gleiche Frage.
Im Code wird die letzte Zeile aus Tabelle1 in die Tabelle2, Zeile 33 kopiert.
Sub letzte_Zeile_kopieren()
Dim lZ As Long
lZ = Sheets("Tabelle1").Range("C" & Rows.Count).End(xlUp).Row
Sheets("Tabelle1").Cells(lZ, 3).Copy Sheets("Tabelle2").[C33]
Sheets("Tabelle1").Cells(lZ, 4).Copy Sheets("Tabelle2").[D33]
Sheets("Tabelle1").Cells(lZ, 5).Copy Sheets("Tabelle2").[E33]
Sheets("Tabelle1").Cells(lZ, 6).Copy Sheets("...