Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Cells(3, 3)) Is Nothing Then Exit Sub
a = Cells(3, 3).Value
Application.EnableEvents = False
For n = 1 To a
Cells(n + 5, 1).Value = n
Next
Application.EnableEvents = True
End Sub