Sub Nummerserie()
    Dim cell As Range
    Set cell = ActiveCell
    Dim n As Integer

    n = InputBox("Skriv det sidste nummer", "Nummerserie")

    Dim i As Integer
    For i = 1 To n
        cell.Value = i
        Set cell = cell.Offset(1, 0)
    Next i

End Sub