指定列挿入と削除

Sub 列挿入()
Dim a, b, i As Long
'-----------------------------
a = 19 '←列最後
b = 3 '←列最初
'-----------------------------
For i = a To b Step -2 '列最後から2列固定の1列挿入
Columns(i).Insert
Next
End Sub

Sub 列削除()
Dim a, b, i As Long
'-----------------------------
a = 27 '←列最後
b = 3 '←列最初
'-----------------------------
For i = a To b Step -3 '列最後から3列目の1列削除
Columns(i).Delete
Next
End Sub