MS Excel: Insert column between each existing column

I needed to insert a blank column every other column that is already available in my excel sheet as in the below screen shot.
Input                                                                         Output

This script helped me.

Sub insert_column_every_other()
For colx = 2 To 8 Step 2
Columns(colx).Insert Shift:=xlToRight
Next
End Sub