|Try this code in a backup copy of your workbook as macros cannot easily be undone.|
'Determine last Column with Data in Row 1
lastCol = Cells(1, Columns.Count).End(xlToLeft).Column
'Copy Column I and Paste it into every 9th Column
For dstCol = 18 To lastCol Step 9
Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.