Incrementing numbers in a column

I use the following to insert numbers in a spreadsheet.

Sub AutoNumberFill()
    Dim x As Long
    Dim rn As Long
    Dim cn As String, sn As Long
    cn = InputBox("Which Column to fill?")
    
    
    rn = InputBox("How many rows to fill?")
    sn = InputBox("Which row to start fill?")

    Application.ScreenUpdating = False
    Application.StatusBar = "Macro Running"
    x = InputBox("What is the starting number?")
    Range(cn & sn).Select
    Do Until ActiveCell.Row = rn + sn
        If ActiveCell.EntireRow.Hidden = False Then
            ActiveCell.Value = x
            x = x + 1
        End If
        ActiveCell.Offset(1).Select
    Loop
    Application.ScreenUpdating = True
    Application.StatusBar = "Completed"
End Sub

How about this.

Sub tst()
    nRows = Range("B10").Value
    With Range("D2").Resize(nRows)
        .Formula = "=Row()-1"
        .Value = .Value
        .Interior.Color = RGB(0, 0, 255)
        .Font.Color = vbWhite
    End With
End Sub