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

Hi Jindon

Thats! perfect and thanks for that....

However, i don't want to generate number for all tab at the same time, if possible can also include the sheetname in the prompt to which i want to generate numbers?

Also i want to protect the column A till the row the value got generated.

Best
Rem0