Sub HideRow2()
    Dim c   As Range
    Dim ws  As Worksheet
    Dim rng As Range
    Application.ScreenUpdating = False
    For Each ws In ActiveWorkbook.Worksheets
        Set rng = ws.Range("J3:J" & ws.Range("A" & ws.Rows.Count).End(xlUp).Row)
        rng.Formula = "=IF(SUM(H3:I3),"""",""hide"")"
        For Each c In rng
            If c.Value = "hide" Then ws.Rows(c.Row).EntireRow.Hidden = True
        Next c
    Next ws
    Application.ScreenUpdating = True
End Sub