Visual Basic - Numeracion

hola, necesito crear una macro que me permita numerar una columna de excel en forma descendente del 1 al 1000, para poder ahorrar el numerar celda por celda o si alguien sabe como hacer eso sin necesidad de macro o de alguna otra forma gracias.

Te pongo un ejemplo:
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim objExcel As Object
Dim objWorkbook As Object
Screen.MousePointer = vbHourglass
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Add
For i = 1000 To 1 Step -1
j = j + 1
objExcel.Range("A" & j).Select
objExcel.Selection.Value = i
Next
objExcel.Range("A1").Select
objExcel.Visible = True
Set objWorkbook = Nothing
Set objExcel = Nothing
Screen.MousePointer = vbDefault
End Sub
La forma de crear el objeto Excel es lo de menos, lo importante es el bucle For
Saludos