Hide rows based on autofilter

I have a spreadsheet that is split in two parts , one with headers in row 16 with data flowing down to row 190. In row 192 I have another set of headers with data flowing down from that to row 300.

I have a userform (roughly at cell B13 in the attached) that filters the first block of data into either Company, Syndicate, EU Corporate or ALL. (ignore the other filters) which feature in range B18:B190

What I want it to do, is that when one of the three options is selected, ie Company, is that all rows from 193 down are hidden other than those that are also Company (in the test case there is just one row). The same is true for when Syndicate or EU Corporate are selected in the userform, and if the ALL is selected then none are hidden.

hope that makes sense.

NIck

this sort of works... but it looks overly complex and I dont like the fact that I had to fix a range , using the xlup function messed it up...
as you can see every time a department is selected the formula has to unhide all rows then hide again based on the formula...

If ComboBox1.Value = "Company" Then
        'Application.ScreenUpdating = False
         Set rng = Range("B193", "B300")
         For Each cel In rng
         cel.EntireRow.Hidden = False
         Next cel
         For Each cel In rng
         If Not cel.Value = "Company" Then
        cel.EntireRow.Hidden = True
         End If
         Next cel
    End If
     
     If ComboBox1.Value = "Syndicate" Then
        'Application.ScreenUpdating = False
         Set rng = Range("B193", "B300")
         For Each cel In rng
         cel.EntireRow.Hidden = False
         Next cel
         For Each cel In rng
         If Not cel.Value = "Syndicate" Then
        cel.EntireRow.Hidden = True
         End If
         Next cel
    End If
    
    If ComboBox1.Value = "EU Corporate" Then
        'Application.ScreenUpdating = False
         Set rng = Range("B193", "B300")
         For Each cel In rng
         cel.EntireRow.Hidden = False
         Next cel
         For Each cel In rng
         If Not cel.Value = "EU Corporate" Then
        cel.EntireRow.Hidden = True
         End If
         Next cel
    End If
    
    If ComboBox1.Value = "ALL" Then
        'Application.ScreenUpdating = False
        Set rng = Range("B193", "B300")
         For Each cel In rng
         
        cel.EntireRow.Hidden = False
         
         Next cel
    End If

any help here?