Macro edit

I've just recorded a new macro that conducts a formula on selection of cells.

How do I go about editing this formula to run the macro on a new selection of cells?

Basically I've got quite a few columns of 51 rows of figures and every other column I need to percentile rank which I'm doing using the PERCENTRANK formula.

This is what my VB code looks like at the moment from just recording the macro.

Sub Prank()
'
' Prank Macro
'
'
ActiveCell.FormulaR1C1 = "=PERCENTRANK(R2C9:R52C9,RC[-1])"
Selection.AutoFill Destination:=Range("J2:J52"), Type:=xlFillDefault
Range("J2:J52").Select

End Sub


As you can see I've run this macro on cells J2 to J52. I will now want to run the same macro on cells K2:K52, then M2:M52, O2:O52, etc, etc, etc.

Help! I don't know where to start.

Thanks,
Sarah

PS. Is there a simple bit of code where I can say 'insert a new column after every other column?' So for example to the right of column D insert a new column, then to the right of column F, etc, etc.