Opret serie

Sub Opret_serie()
Dim i As Integer
Dim h As Integer
Dim t As Integer
Dim l As Integer
Dim v As Integer
Dim Antal As Integer

Antal = InputBox("Hvor mange uger?")
Værdi = InputBox("Start med?")

    Svar = MsgBox("Vil udfylde vandret? (Nej, udfylder nedad)", vbYesNo + vbQuestion, "Retning")
    If Svar = vbYes Then
        l = 0
        v = 1
    Else
        l = 1
        v = 0
    End If

t = Værdi

For i = 1 To Antal

    For h = 1 To 5
   
    ActiveCell = t
    ActiveCell.Offset(l, v).Activate
    t = t + 1
    Next h
    t = t + 2

Next i

End Sub