[red sky]

I found out the vba code for it:

Sub DelC()
Dim LC As Integer, i As Integer
LC = Cells(20, Columns.Count).End(xlToLeft).Column
For i = LC To 2 Step -1
If Val(Cells(20, i).Value) = 0 Then Columns(i).Delete
Next i
End Sub