Hide columns with zero or blank after filter

[Accountant88]

Hi

I have a spreadsheet with so many columns and rows. I am looking for a macro to filter the product in Column A, cell 2; then hide any columns in the range from BU to CW with zero value or no value. Can anyone help please?

 

[SQUIDD]

Maybe try this

Sub HideColumnsWhenAllRowsAreZero()
For A = 73 To 101
    If Application.WorksheetFunction.Sum(Range(Cells(1, A), Cells(Cells(Rows.Count, A).End(xlUp).Row, , A)).SpecialCells(xlCellTypeVisible)) Then
        Columns(A).EntireColumn.Hidden = True
    End If
Next A
End Sub

 

[SQUIDD]

oops

meant this

Sub HideColumnsWhenAllRowsAreZero()
For A = 73 To 101
    If Application.WorksheetFunction.Sum(Range(Cells(1, A), Cells(Cells(Rows.Count, A).End(xlUp).Row, , A)).SpecialCells(xlCellTypeVisible)) =0 Then
        Columns(A).EntireColumn.Hidden = True
    End If
Next A
End Sub