Sub Hide_0()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim r As Range, x, c As Range
Dim r1 As Range
Dim n As Long, n1 As Long
Dim lrow As Long
Application.ScreenUpdating = False
ActiveSheet.Rows.Hidden = False
lrow = Range("ao65536").End(xlUp).Row
Set x = Range("AO5:AO" & lrow)
x.EntireRow.Hidden = True

For Each c In x
Set r = Range("AO" & c.Row & ":As" & c.Row)
Set r1 = Range("AU" & c.Row & ":AZ" & c.Row)
    n = Application.Sum(r)
    n1 = Application.Sum(r1)
    If n <> "0" And n1 <> "0" Then
        c.EntireRow.Hidden = False
    End If
Next c
End Sub