filter ausschalten sobald anderer filter betätigt wird

Question

Hallo guten Tag, Filter ausschalten sobald anderer Filter betätigt wird. Z.B. sobald ich den Sub Filter_J() anwähle soll der Filter Sub Filter_B() ausgeschaltet werden (nicht gelöscht) bevor der Sub Filter_J() aktiviert wird. Danke

 Sub Filter_B()

    With ActiveSheet.Range("$b$4:$b$33")
        If ActiveSheet.FilterMode Then
            .AutoFilter field:=1
        Else
            .AutoFilter field:=1, Criteria1:="<>", VisibleDropDown:=True        'True bedeutet der Filterknopf wird angezeigt
       End If
    End With
   Dim z As Long   'Erste Sichtbare Zeile
         For z = 4 To Cells.SpecialCells(xlCellTypeLastCell).Row   'Zeile 4
         If Rows(z).Hidden = False Then
         Cells(z, 2).Select 'Spalte C
         Exit For
      End If
   Next z
End Sub

Sub Filter_J()
    With ActiveSheet.Range("$J$4:$J$33")
        If ActiveSheet.FilterMode Then
            .AutoFilter field:=1
        Else
            .AutoFilter field:=1, Criteria1:="aus*", VisibleDropDown:=True        'True bedeutet der Filterknopf wird angezeigt
       End If
    End With
   Dim z As Long   'Erste Sichtbare Zeile
         For z = 4 To Cells.SpecialCells(xlCellTypeLastCell).Row   'ab Zeile 4
         If Rows(z).Hidden = False Then
         Cells(z, 12).Select 'Spalte G
         Exit For
      End If
   Next z
End Sub

Sub Filter_K()
    With ActiveSheet.Range("$K$4:$K$33")
        If ActiveSheet.FilterMode Then
            .AutoFilter field:=1
        Else
            .AutoFilter field:=1, Criteria1:="aus*", VisibleDropDown:=True        'True bedeutet der Filterknopf wird angezeigt
       End If
    End With
   Dim z As Long   'Erste Sichtbare Zeile
         For z = 4 To Cells.SpecialCells(xlCellTypeLastCell).Row   'ab Zeile 4
         If Rows(z).Hidden = False Then
         Cells(z, 12).Select 'Spalte G
         Exit For
      End If
   Next z
End Sub