I have a formula,

ActiveCell.FormulaR1C1 = "=(Origin!RC[cC]-Origin!R3C[cC])/Origin!R3C[cC]"

which I want to insert into "A3", "B3" etc. for about 30 additional columns.
I then plan to extend the results to the last cell down each column, using
"Auto-Fill". "cC" is a variable in the formula.

For example:

rts.Cells(ratdtR + 1, ratdtC + g).Select

Selection = "=(Origin!RC[3]-Origin!R3C[3])/Origin!R3C[3]"

Selection.AutoFill Destination:=Range(Cells(invdtR + 1, invdtC + g),
Cells(lstcelR, invdtC + g)),Type:=xlFillDefault

works (assuming cC = 3) but I do not know how to code "cC" programatically.

Can someone help me with this problem.