Macro to delete some columns

[boss1982]

Hi,

please i want to delete all columns if the value = zero in specific row

i did this code to hide the columns, can u help to delete them?

Dim c As Range, rng
Set rng = Range("H21:DH21")


For Each c In rng

If c.Value = 0 And c.EntireColumn.Hidden = False Then

c.EntireColumn.Hidden = True
End If
Next c

thanks.