Write formula from 2nd row to last row of data

[outlawspeeder]

Dim LRow As Long
LRow = Range("B1048576").End(xlUp).Row

'Columns("G2:G" & LRow).Select
'or
Columns("G2:" & "G" & LRow).Select

'''''''''How do I select G1615 if it is changing?'''''''''''''''''

ActiveCell.FormulaR1C1 = "=(""1/1/""&(IF(LEFT(RC[1],2)*1<20,2000,1900)+LEFT(RC[1],2)))+MOD(RC[1],1000)-1"

 

[VoG]

Try

Dim LRow As Long
LRow = Range("B" & Rows.Count).End(xlUp).Row
Range("G2:G" & LRow).FormulaR1C1 = "=(""1/1/""&(IF(LEFT(RC[1],2)*1<20,2000,1900)+LEFT(RC[1],2)))+MOD(RC[1],1000)-1"

 

[outlawspeeder]

I was close to that on one of my tries.
Thanks for the help.