One way. You could also have a worksheet_change event where it would be
entirely automatic.

Sub addonto()
For i = 2 To 4
Cells(i, 1) = Cells(i - 1, 1) + 1
Next i
End Sub

--
Don Guillett
SalesAid Software

"teddkilroy" wrote in message
...
I have a spreadsheet that I have to enter xxxxx digits into the first
column/first row. I was wondering if there was a way to set the
spreadsheet
to complete the xxxx1, xxxx2 xxxx3 in the rows beneath automatically?

If no is it because excel does not know what numbers would come next?