beh prima soluzione
scrivi :
1
2
3

poi selezioni i 3 numeri e clicchi sul quadratino di riempimento automatico e trascini in basso fino alla riga 1000

seconda soluzione fai 1 macro che scriva per te i numeri

una cosa del tipo
for i = 1 to 1000
cells("a",i) = i
next

non sono sicuro dei riferimenti ma cosi funziona