Macro Generate Numbers in Sequential Order

Bump in such short time?

Sub test()
    Dim ws As Worksheet, num As Long
    num = Abs(Application.InputBox("How many?", Type:=1))
    If num < 2 Then Exit Sub
    For Each ws In Worksheets
        With ws.Range("a" & Rows.Count).End(xlUp)
            .AutoFill .Resize(num + 1)
        End With
    Next
End Sub