Jestem nowy w VBA i gdzieś utknąłem. Muszę skopiować ostatni wiersz kolumny A do kolumny H i wkleić go do ostatniego wiersza kolumny I. Ostatnie wiersze kolumn zawsze się zmieniają.

na przykład; moje dane są w A2: H2, a I5 to ostatnia komórka z danymi.
Mój kod powinien być kopią A2: H2 i wkleić go A3: H5. I po raz drugi uruchomię makro (po dodaniu nowych danych do odpowiednich kolumn) powinna to być kopia A6: H6 i wklej ją do ostatniego wiersza kolumny I.

Napisałem dwa kody, które nie spełniły moich potrzeb.

pierwszy kod to;

  Sub OrderList1()

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

  End Sub

ten kod pomija A3: H4 i tylko wkleja do A5: H5

drugi kod to;

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

 End Sub

kopiuje A2: H3 i wkleja A5: H5, ale kiedy dodaję nowe dane, nie zaczyna się wklejać z A5: H5. Rozpoczyna się od A2: H2 i zastępuje stare dane. Widzę, co muszę zmienić, zakres powinien być dynamiczny, jak w pierwszym kodzie, ale nie mogę napisać kodu.

Naprawdę doceniam małą pomoc.