如圖所示，想要每隔一欄就新增一個空白欄

原本形式

新增空白欄
Sub aa()
Dim a As Integer
For a = 1 To 504
a = a + 1
Columns("a:a").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Next a
End Sub
請問各位大大 該如何修改呢?
目前程式碼執行後，只會把活頁簿變成空白

for a= 504 to 1 step -1 試試

對要倒過來