Olá Maurício, não entendi exatamente como se dará o procedimento desejado, mas pode tentar algo do tipo:
If Range("A1").Value = 0 And Range("A1").Value <> "" Then
Range("A1").Columns("A:A").EntireColumn.Select
Selection.Delete Shift:=xlToLeft
End If
Rafael Kamimura