Hi Solid,

In accordance with your BBB macro, try:

'==============
Public Sub CCC()
Dim rng As Range
With ActiveSheet
Set rng = .Range(.Cells(21, 2), .Cells(21, 2).End(xlDown))
End With
Set rng = rng.Offset(0, -1)
rng(1) = 21
rng(2) = 22
rng(1).Resize(2, 1).AutoFill rng

End Sub
'<<==============

BTW, I assume that:

other number also starting from a21: a100 starting from the
number one to number ninety

is a typo and you meant to refere to a 1-80 sequence.


---
Regards,
Norman


"solid" wrote in message
ups.com...
I have this formula under that I use to update the numbers in my
worksheet and is working find
But I have two sets of data now on the same worksheet coming from
a1:a20 starting from the number (1) one to number twenty (20) and the
other number also starting from a21: a100 starting from the number one
to number ninety
What is needed is two command buttons to update the first part from
a1:a20 and the other part from a21:a100

Sub BBB()
Dim rng As Range
With ActiveSheet
Set rng = .Range(.Cells(2, 2), .Cells(2, 2).End(xlDown))
End With
Set rng = rng.Offset(0, -1)
rng(1) = 1
rng(2) = 2
rng(1).Resize(2, 1).AutoFill rng
End Sub