excel vba填充列从1到N.

I am trying to write a VBA code to autofill range A1:A10000 with numbers 1 to 10000 but without entering 1 in A1 and 2 in A2 to create a range.I am trying to write a VBA code to autofill ran