Primeiro, insira a seguinte macro de eventos na área de código da planilha:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim A As Range, N As Long
Set A = Range("A1")
If Intersect(Target, A) Is Nothing Then Exit Sub
Application.EnableEvents = False
N = A.Value
Range("A:A").Clear
For i = 1 To N
Cells(i, "A").Value = i
Next i
Application.EnableEvents = True
End Sub
Em seguida, insira um número na célula A1 . A coluna A será automaticamente preenchida com uma sequência