Macro to insert a blank column every second column plus highlight

[B-radK]

Hello team,

I need to insert a blank column every second column after column R, for approximately 100 columns. Once inserted, I need to colour the new blank columns in yellow.

Basically, I need to split the columns of data I have with a blank column in between, so I can do some calculations.

I can do this through recording a macro, but it is obviously messy, and I would like to tidy it up.

Sub Insert_Columns()

Range("R:R").Insert
Range("T:T").Insert
Range("V:V").Insert
Range("X:X").Insert
Range("Z:Z").Insert
etc. etc.

Could I have help on a macro to suit please? Any help would be much appreciated.

Thank you very much,
Brad.

 

[My Aswer Is This]

Try this:

Sub Insert_Columns()
'Modified 3/24/2020 7:28:09 AM EST
Application.ScreenUpdating = False
Dim i As Long
For i = 18 To 110 Step 2
Columns(i).Insert: Columns(i).Interior.Color = vbYellow
Next
Application.ScreenUpdating = True
End Sub

 

[B-radK]

Fantastic. Works a treat.

Thank you very much!!

 

[My Aswer Is This]

Fantastic. Works a treat.

Thank you very much!!

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.
You said about 100 so I'm sure you can see how to modify script to your exact need.
Change 110 to your needs.