Hello all.
Please, in case it is possible, I need to change this code from the notation R1C1 to A1, I have been trying and I got errors, so thats why I am here
Code
Sub Loop1()
Dim Rw As Long, Cl As Long
Range("C2").Select
Do
ActiveCell.FormulaR1C1 = "=Average(RC[-1],RC[-2])"
ActiveCell.Offset(1, 0).Select
Loop Until IsEmpty(ActiveCell.Offset(0, -1))
Range("A22").Select
End Sub
work good, but I really would like to see it with A1 notation.
Thank you for reading this