VBA Excel Macro Hide Rows Based on Cell Value

Hello,

I am looking for VBA to hide rows based on if a cell value is zero and then loop down the spreadsheet and hide all rows with the corresponding cell value as zero. I know how to do this when it is a bit more simple and less variables.

The number of lines for each account can vary on this spreadsheet. The attached sheet is a smaller spreadsheet but in reality there is about 150 accounts, so something that can easily scan through each section not showing a balance on the Trial Balance column and hiding that section of rows would be really nice through a macro and not having to manually do it. Any help is appreciated!!

Thanks!

How about

Sub hideRows()
   Dim Ar As Areas
   Dim i As Long
   
   With Range("A8", Range("A" & Rows.Count).End(xlUp))
      .Replace "*Total*", "=xxxTotal", xlPart, , False, , False, False
      Set Ar = .SpecialCells(xlFormulas, xlErrors).Areas
      .Replace "=xxxTotal", "Total", xlPart, , False, , False, False
   End With
   For i = 1 To Ar.Count
      If Ar(i).Offset(, 6) = 0 Then
         If i = 1 Then
            Rows("9:" & Ar(i).Row).Hidden = True
         Else
            Rows(Ar(i - 1).Row & ":" & Ar(i).Row).Hidden = True
         End If
      End If
   Next i
End Sub