刪除空白列

Sub 刪除空白()
Range("A65530").Select
Selection.End(xlUp).Select
x = ActiveCell.Row

Range("A1").Select

For y = 1 To x

If ActiveCell.Value = Empty Then

x1 = ActiveCell.Row
z = x1 & ":" & x1
Rows(z).Select
Selection.Delete Shift:=xlUp

Else

ActiveCell.Offset(1, 0).Select

End If


Next
Range("A1").Select


End Sub