Ich bin neu in VBA und stecke irgendwo fest. Ich muss die letzte Zeile von Spalte A bis Spalte H kopieren und bis zur letzten Zeile von Spalte I einfügen. Die letzten Zeilen von Spalten werden immer geändert.

z.B; Meine Daten sind in A2: H2 und I5 ist die letzte Zelle mit Daten.
Mein Code sollte A2: H2 kopieren und A3: H5 einfügen. Und wenn ich das Makro zum zweiten Mal ausführe (nachdem ich neue Daten zu den jeweiligen Spalten hinzugefügt habe), sollte es A6: H6 kopieren und bis zur letzten Zeile von Spalte I einfügen.

Ich schrieb zwei Codes, die meine Bedürfnisse nicht erfüllten.

Der erste Code ist;

  Sub OrderList1()

    Range("a65536").End(xlUp).Resize(1, 8).Copy _
    (Cells(Cells(Rows.Count, 9).End(xlUp).Row, 1))

  End Sub

dieser Code überspringt A3: H4 und fügt nur A5: H5 ein

zweiter Code ist;

 Sub OrderList2()
   Range("A2:H2").Copy Range(Cells(2, 8), _
   Cells(Cells(Rows.Count, 9).End(xlUp).Row, 1))

 End Sub

es kopiert A2: H3 und fügt es A5: H5 ein, aber wenn ich neue Daten hinzufüge, fängt es nicht an, von A5: H5 einzufügen. Es startet von A2: H2 und überschreibt alte Daten. Ich kann sehen, was ich ändern muss. Der Bereich sollte der dynamische Bereich sein, wie im ersten Code, aber ich kann den Code nicht schreiben.

Ich werde ein bisschen Hilfe wirklich schätzen.