Autofilling an R1C1 formula

[AlexSlivi]

For each policy, there is a premium and 20 percentages that are used in order to allocate the premium into certain funds. The R1C1 formula below is always referencing the first policy's premium ($D$2) when autofilled. Is there a way to make it reference D2 to correct the autofill problem or perhaps there's another solution, maybe a non R1C1 formula, if those exist?

For y = 0 To 95 Step 5
Range("Y2").Offset(0, y).Select
Selection.EntireColumn.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.FormulaR1C1 = "=RC[-3]/100*R2C4"
Range("Y2").Offset(0, y).AutoFill Destination:=Range(Range("Y2").Offset(0, y), _
Range("Y2").Offset(lastRow - 2, y)), Type:=xlFillDefault
Next y

 

[AlexSlivi]

Never mind, I figured it out. I changed it to RC4 and it worked. I was being silly.

 

[Scott Huish]

I simplified your formula, which is basically =$D2^2/100

Dim a As Range, c As Range, d As Long
Set a = Range("Y2:Y" & lastrow): Set c = a
For d = 5 To 95 Step 5
    Set c = Union(a.Offset(, d), c)
Next
c.Formula = "=$D2^2/100"