How to quickly insert blank column between every other column

Hi All

I would like to place a blank column in J, L, N, P, R, T, V, X and so on up to HN.

This is the code I'm using

Please Login or Register  to view this content.

Every time I run it I get an error.

Can someone point me in the right direction?

Rollis13

Thank you for your help but I get an error as well using this code

Please Login or Register  to view this content.

The error is : Run-time error '1004'
Insert method of range class failed.

As you may have understood your code was already in working conditions, this means the problem is in your sheet. Maybe you have other hidden or locked cells or even merged cells. Test on a new sheet or cleanout this one deleting all columns after HN and all rows under the last used row and check for merged cells.

Thank you for all your help. The VBA is working as intended.

Again Rollis thank you!

Glad having been of some help .