Dim i As Integer, col As Integer, dl As Long
col = Cells(1, Columns.Count).End(xlToLeft).Column
dl = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To col
If Application.WorksheetFunction.Sum(Range(Cells(2, i), Cells(dl, i))) = 0 Then
Cells(1, i).EntireColumn.Hidden = True
End If
Next