Sub HideZeroValueRows()
    Dim ws As Worksheet, rng As Range, cel As Range
    For Each ws In ThisWorkbook.Sheets
        Set rng = ws.Range("H3", ws.Cells(Rows.Count, "I").End(xlUp).Offset(-1))
        For Each cel In rng
            If cel.HasFormula And cel.Value = 0 Then cel.EntireRow.Hidden = True
        Next cel
    Next ws
End Sub