ONe way:

Public Sub RCA()
If IsEmpty(Range("A2").Value) Then
Range("A2").Value = InputBox("Enter Starting Value")
Else
Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = _
Application.Max(Range("A:A"))+1
End If
End Sub

this assumes that there's nothing in column A below the cells you're
filling



In article ,
"mark" wrote:

I would like the numbers to start in A2 then A3 Then A4
etc