Kopier nogle værdier fra kolonne B til kolonne A - VBA kode

Hej,
Jeg har en Excel fil, hvor jeg hver dag indlæser data ind i en anden Excel fil i området B:I.
I det data jeg indhenter, fremgår der af kolonne B følgende i rækkefølge:
Kontonummer (4 cifre)
Afdeling nr. (3 cifre)
Afdeling nr. (3 cifre)
Afdeling nr. (3 cifre)
Afdeling nr. (3 cifre)
Afdeling nr. (3 cifre)
Osv.
Total
Kontonummer (4 cifre)
Afdeling nr. (3 cifre)
Afdeling nr. (3 cifre)
Osv.
Total
Osv.
Osv.

Er der mulighed for at lave en VBA kode, som automatisk flytter kontonummeret ud i kolonne A, og når der kommer en Total, så tager den det næste kontonummer og flytter ud i kolonne A osv.

På forhånd tak for hjælpen.