How can I shortcut all this code into a loop of some kind please.

[tungchiu]

Hi everybody!
I have columns of data that are generated by formulae inserted by the following code.

Private Sub XtendData()
Dim w As Integer

‘Insert formulae in Col 22
For w = 12 To 200 Step 2
Cells(w, 22).FormulaR1C1 = "=IF(OR(RC[-14]="""", RC[-8] = """"), """", IF(RC[-14] = R8C22, RC[-8], """"))"
Next

‘Insert formulae in Col 23
For w = 12 To 200 Step 2
Cells(w, 23).FormulaR1C1 = "=IF(OR(RC[-15]="""", RC[-9] = """"), """", IF(RC[-15] = R8C23, RC[-9], """"))"
Next

‘Insert formulae in Col 24
For w = 12 To 200 Step 2
Cells(w, b).FormulaR1C1 = "=IF(OR(RC[-16]="""", RC[-10] = """"), """", IF(RC[-16] = R8C24, RC[-10], """"))"
Next

And so on ad infinitum for 25 columns. I know there must be a more efficient way to write this but I can’t figure it out. Can anybody help please as I am facing the prospect of even more columns!
Thanks in advance!

 

[tungchiu]

In that case, try this

Sub Insert_Formulas_Every_Second_Row()
  Range("V12:AT12").FormulaR1C1 = "=IF(OR(RC8="""",RC14=""""),"""",IF(RC8=R8C,RC14,""""))"
  Range("V12:AT13").AutoFill Destination:=Range("V12:AT200"), Type:=xlFillDefault
End Sub

Once again Peter, i'm so impressed. I don't quite understand yet how the code works but what a great learning curve! Can't thank you enough for your time & willingness to help. Cheers!