Cancel MACRO if a certain condition arises in a cell

[nenadmail]

Hi I have this code:

Private Sub Worksheet_Activate()

    Dim rRow             As Range
    Dim rRowRange        As Range
    Dim rCell            As Range
    Dim bHide            As Boolean
    
    ' change as you need
    Set rRowRange = Intersect(UsedRange, Range("B9:B50"))

    ActiveWindow.DisplayZeros = False
    Application.ScreenUpdating = False

    For Each rRow In rRowRange.Rows
        bHide = False
        For Each rCell In rRow.Cells

            If Len(rCell.Value) = 0 Then
                bHide = True
                Exit For
            End If
        Next rCell
        rRow.EntireRow.Hidden = bHide

    Next rRow

    Application.ScreenUpdating = True

End Sub

Right now the MACRO is Running when the worksheet is activated. But I DO NOT want it to RUN....
IF THE FOLLOWING IS TRUE...

=IF('S-57 (Special Req)'!J6=0)



Can someone edit my code above to reflect this condition????
Thanks for your help!