Hiding rows on condition that all (most) are blank

[dudewheresmyvba]

After not finding examples that apply to my situation, I've come here for VBA help.

I am wanting to hide rows with a macro when B:I are blank. There are formulas in them but the ones that I want hidden have errors in them that I have set to "". So its is a normal table with headers on the top and in column A, A2:I33 is the range I want to hide rows individually, if they have no value in B:I.

 

[Truiz]

Untested

Sub HROCTAMAB()
Dim lRow As Long
Dim R2H As Long

lRow = ActiveSheet.Cells.Find(What:="*", SearchOrder:=xlRows, _
           SearchDirection:=xlPrevious, LookIn:=xlValues).Row
  
For R2H = lRow To 2 Step -1
        If WorksheetFunction.CountA(Range(Cells(R2H, "B"), Cells(R2H, "I"))) = 0 Then
            Rows(R2H).Hidden = True
        End If
  Next

End Sub