updating two sets of data
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
|