Konverter datatabel med måned i hver sin kolonne, til måned en række pr. måned

Hovsa, der havde da vist lige sneget sig et ekstra "til måned" ind i overskriften! Sorry.

Hov, glemte også lige at skrive at det er Excel 2003, engelsk version.

Sub konverterBudget()
Dim sidsteRæk As Long, sidsteKol As Long
Dim ræk As Long, kol As Long, ræk2 As Long, kontonr As Long, måned As String
Dim ark1 As Worksheet, ark2 As Worksheet
    Set ark1 = ActiveWorkbook.Sheets("Ark1")
    Set ark2 = ActiveWorkbook.Sheets("Ark2")
   
    ark1.Activate
    sidsteRæk = ActiveCell.SpecialCells(xlLastCell).Row
    sidsteKol = ActiveCell.SpecialCells(xlLastCell).Column
   
    ræk2 = 2
   
    Application.ScreenUpdating = False

    For ræk = 2 To sidsteRæk
        kontonr = ark1.Cells(ræk, 1)
        For kol = 2 To sidsteKol
            With ark1
                måned = .Cells(1, kol)
                beløb = .Cells(ræk, kol)
            End With
           
            With ark2
                .Cells(ræk2, 1) = kontonr
                .Cells(ræk2, 2) = måned
                .Cells(ræk2, 3) = beløb
            End With
           
            ræk2 = ræk2 + 1
        Next kol
    Next ræk
End Sub

Det virker perfekt supertekst :-)
Men jeg kan ikke finde ud af at læse/forstå koden, så vil gerne have lidt mere hjælp:

Jeg havde jo selvfølgelig forsimplet mit eksempel lidt, så har brug for at vide hvordan jeg udvider koden.

Jeg har 5 kolonner med forskellige kontooplysninger i (kolonne A til E) + 12 kolonner med hver deres måneds tal i (kolonne F til Q).

Hvor i koden er det jeg skal rette det til?

Prøver at ændre koden på basis af #4 - vender tilbage..

Rem Version 2
Sub konverterBudget()
Dim sidsteRæk As Long, sidsteKol As Long
Dim ræk As Long, kol As Long, ræk2 As Long, måned As String, kontoInfo
Dim ark1 As Worksheet, ark2 As Worksheet
    Set ark1 = ActiveWorkbook.Sheets("Ark1")
    Set ark2 = ActiveWorkbook.Sheets("Ark2")
   
    ark1.Activate
    sidsteRæk = ActiveCell.SpecialCells(xlLastCell).Row
    sidsteKol = ActiveCell.SpecialCells(xlLastCell).Column
   
    ræk2 = 2
   
    Application.ScreenUpdating = False

    For ræk = 2 To sidsteRæk
        kontoInfo = ark1.Range("A" & ræk & ":E" & ræk)
       
        For kol = 6 To sidsteKol
            With ark1
                måned = .Cells(1, kol)
                beløb = .Cells(ræk, kol)
            End With
           
            With ark2
                .Range("A" & ræk2 & ":E" & ræk2) = kontoInfo
                .Cells(ræk2, 6) = måned
                .Cells(ræk2, 7) = beløb
            End With
           
            ræk2 = ræk2 + 1
        Next kol
    Next ræk
End Sub

PERFEKT :-)
Smider du et svar supertekst?

TAK - og et svar..