VBA 空白の列を削除

エクセルにて、空白の列を削除するVBAです。
ただし、空白の列が続いた場合、２つ目の列は削除できません。
想定しているのは１列おきのデータです。

-----
Sub Retsu Keshi Macro()

Application.ScreenUpdating = False

Dim i As Integer

' １から最後の列まで繰り返す
For i = 1 To Range("A65536").End(xlUp).Row

' Cells(i, 1)が空白だったら、その列を削除する
    If Cells(i, 1) = "" Then
        Cells(i, 1).Select
        ActiveCell.EntireRow.Delete
    End If

Next i

Cells(1,1).Select

Application.ScreenUpdating = True

End Sub
-----

←クリック一票