Summarizing columns, hiding certain cells

Hi LegionLord

Here is Code to Hide Columns with 0 in the Last Row

Option Explicit

Sub HideZeroes()
    Dim LR As Long, LC As Long, i As Long
    Application.ScreenUpdating = False
    With ActiveSheet
        LR = .Range("E" & .Rows.Count).End(xlUp).Row
        LC = .Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, _
                SearchDirection:=xlPrevious).Column
        For i = 5 To LC
            If Cells(LR, i).Value = 0 Then
                .Columns(i).Hidden = True
            End If
        Next i
    End With
    Application.ScreenUpdating = True
End Sub

And here's Code to UnHide all Columns

Sub UnHideZeroes()
    Cells.EntireColumn.Hidden = False
End Sub

Assign the Code to Buttons on the Target Sheet.