Overfør data fra en kolonnede til to andre kolonner - VBA

Jeg håber nogle af jer kan hjælpe med at udbygge nedenstående VBA kode. Jeg har lavet et udtræk fra et system til Excel, som f.eks. ser ud som nedenstående. Bemærk at antal af afdelinger kan varierer:
Kontonr.
Sted 1
Afdeling 1
Afdeling 2
Afdeling 3
Afdeling 4
Total
Sted 2
Afdeling 1
Afdeling 3
Afdeling 4
Afdeling 5
Total
Sted 3
Afdeling 1
Afdeling 2
Afdeling 3
Afdeling 4
Afdeling 5
Total
Total
Kontonr.
Sted 1
Afdeling 1
Afdeling 2
Afdeling 4
Total
Sted 2
Afdeling 1
Afdeling 2
Afdeling 3
Afdeling 4
Afdeling 5
Total
Sted 3
Afdeling 1
Afdeling 2
Afdeling 3
Afdeling 4
Afdeling 5
Total
Total
Osv.
Osv.
Listen afsluttes med TOTAL

Jeg kunne godt tænke mig, at kontonr. overføres til kolonne A og sted overføres til kolonne B, så det f.eks. ser således ud:

1000 Sted 1 Afdeling 1
1000 Sted 1 Afdeling 2
Total
1000 Sted 2 Afdeling 1
1000 Sted 2 Afdeling 2
Total
Total
1001 Sted 1 Afdeling 1
1001 Sted 1 Afdeling 2
osv.
osv.

Nuværende kode:
Const startRæk = 2
Const testKol = "C"
Const brudTekst = "Total"
Const stopTekst = "T O T A L"
Dim antalRæk As Integer, kontoNr As Integer, brudFlag As Boolean
Public Sub kopierKontonr()
Dim ræk As Integer
    Application.ScreenUpdating = False
   
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
    kontoNr = Range(testKol & startRæk)
    brudFlag = True
   
    For ræk = startRæk + 1 To antalRæk
        If Range(testKol & ræk) = brudTekst Then
            If Range(testKol & ræk).Offset(1, 0) <> stopTekst Then
                kontoNr = Range(testKol & ræk).Offset(1, 0)
            Else
                Exit Sub
            End If
        Else
            If brudFlag = True Then
                Range(testKol & ræk).Offset(0, -1) = kontoNr
            End If
        End If
    Next ræk
End Sub
Private Sub CommandButton1_Click()
    kopierKontonr
End Sub

pft.
Hilsen
Jacob