Nogen der kan finde fejlen i denne kode??

Hej

Jeg ville gerne have denne kode til at skrive ugenr, men det virker ikke...

Når jeg kører koden som uden at skrive ugenr skriver den ca. 196 linier, men når jeg prøver at få skrevet ugenr skriver den 3 gange mere end den skal...

Jeg kan ikke gennemskue hvorfor den gør dette eller om det er fordi man ikke kan det jeg vil...

Sub generator()

Application.ScreenUpdating = False
Start = Timer
If Not Range("b15") = "" Then

MsgBox ("du har allerede genereret en vagtliste")

Else
Set ugeplan = Range("J3:L7")

For antaluger = 1 To Range("N3")

For ugenr = Range("o3") To Range("p3")              ' høre til ugenr

tæller = 0

For e = 1 To 5
For i = 1 To 3

Select Case e
Case 1
    dag = "mandag"
Case 2
    dag = "tirsdag"
Case 3
    dag = "onsdag"
Case 4
    dag = "torsdag"
Case 5
    dag = "fredag"
End Select

Select Case i
Case 1
    vagt = "formiddagsvagt"
Case 2
    vagt = "middagsvagt"
Case 3
    vagt = "aftenvagt"
End Select

For o = 1 To ugeplan(e, i)

With Range("c1048576")
    .Offset(0, 0).End(xlUp).Offset(1, 0) = vagt
End With

With Range("A1048576")                              ' høre til ugenr
    .Offset(0, 0).End(xlUp).Offset(1, 0) = ugenr    ' høre til ugenr
End With                                            ' høre til ugenr

Next
tæller = tæller + ugeplan(e, i)

Next

For x = 1 To tæller
With Range("b1048576")
    .Offset(0, 0).End(xlUp).Offset(1, 0) = dag
End With



Next
tæller = 0

Next

Next                                                ' høre til ugenr

Next antaluger

End If

Application.ScreenUpdating = True
slut = Timer
Debug.Print slut - Start
End Sub