Number Printing

With your reference number in D2, this in A1 copied down as far as you will ever need:

=IF(ROW()>$D$1,"",ROW())

Put this code in the Workbook module:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim arr() As Variant
    On Error GoTo Terminate
    If Target.Cells.Count = 1 And Target.Row = 1 And IsNumeric(Target.Value) Then
        Application.EnableEvents = False
        Target.Resize(Target.Value) = Evaluate("Row(1:" & Target.Value & ")")
    End If
Terminate:
    Application.EnableEvents = True
End Sub

Now whenever you enter a number into Row 1, a sequential list of numbers from 1 to that number will be listed in that column.

My take on this one...Enter any number into A1

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim num As Long
If Not Intersect(Target, Range("A1")) Is Nothing Then
    Application.EnableEvents = False
    Rows("2:" & Rows.Count).ClearContents
    With Target
        num = .Value
        .value = 1
        .Resize(num).DataSeries
    End With
    Application.EnableEvents = True
End If
End Sub