makro - Excel: kopiowanie zakresu danych w zależności od 1 kolumny

Witam,
Mam następujący problem. Mam arkusz o zmiennej ilości wierszy. Wypełnione kolumny zawsze od A do J.
W kolumnie A występują kody, kody mogą się powtarzać- dla ułatwienia jeśli się powtarzają są jedne pod drugim ale nie ma stałej określonej liczby powtórzeń.
Chodzi mi o to by makro sprawdzało kod w kolumnie A - unikat kopiujemy do Arkusza 2 z wartościami od B-J, następnie makro powinno sprawdzić kolejny kod w Arkuszu 1, jeśli taki sam jak poprzedni - kopiuje komórki B-J do Arkusza 2, na koniec wiersza.
1 kodu, itd. następnie sprawdza kolejny kod jeśli :nowy: kopiuje kolumny A-J do Arkusza 2, do kolejnego wiersza.
W załączeniu plik dane wejściowe i oczekiwany wynik.
Z góry dziękuję za pomoc.

Witaj.
Zakładając, że oryginalne dane na pierwszym arkuszu, a wynik na drugi:

Dzień dobry,
Ewentualnie jeszcze takie rozwiązanie formułami.
Zakres danych nazwany kody (można wydłużyć w Menedżerze nazw).
Obszar zaznaczony na żółto w Arkuszu2 stanowi wynik formuły tablicowej. Można kopiować w prawo do kolejnych kolumn i w dół w miarę potrzeby.
Formuły dla Excela >=2007. Po wczytaniu przykładowego pliku zapisać jako .xlsx
Pozdrowienia.

JRV rozwiązanie działa świetnie, dodałam jedynie
Sub upraw()
Dim bsk As Range, bsr As Range
Dim rb&, rd&, cd&, cm&
Set bsk = ThisWorkbook.Sheets(1).Columns(1).Cells
Set bsr = ThisWorkbook.Sheets(1).Range("B:J").Rows
rb = 2: rd = 2
---> cd = 2 <---

ponieważ kopiowało do kolumny I, po tej kosmetycznej zmianie działa genialnie. Bardzo bardzo dziękuję