Hi Carole,
If you want to do it with a Commandbutton try
this:
Private Sub CommandButton_Click()
Dim ColA As Range, rw As Range, n%
Set ColA = Range("A6")
Set rw As = ColA.EntireRow
Do Until Application.WorksheetFunction.CountA
_ (rw) = 0
n = n + 1
ColA.Value = n
Set ColA = ColA.Offset(1, 0)
Set rw = rw.Offset(1, 0)
Loop
End Sub
The above code starts the numbering sequence
in Col A, Row 6 You can modify as needed
James