Sub Фильтр_Снят()
    If Worksheets(1).AutoFilterMode Then
        With Worksheets(1).AutoFilter.Filters(1)
            If .On Then
                Worksheets(1).Range("$B$1:$C$3").AutoFilter Field:=1
                Worksheets(1).DrawingObjects(1).Caption = "On"
            Else
                Worksheets(1).Range("$B$3:$C$5").AutoFilter Field:=1, Criteria1:="1"
                Worksheets(1).DrawingObjects(1).Caption = "Off"
            End If
        End With
    End If
End Sub