Метод AutoFilter - VBA

Формулировка задачи:

Вот такой кусочек кода:

   Range("A1:AB1").Select
    Range("AB1").Activate
    Selection.AutoFilter

Сажает на первую строку Автофильтр. Проблема в том, что и снимается фильтр тем же кодом. Иначе говоря, предположим, я хочу поставить фильтр, а он там уже стоит, получается, я его снимаю, вместо того, чтобы поставить. И наоборот, надо поставить, а я снимаю. Как это обойти, как узнать, стоит фильтр, или нет?

Решение задачи: «Метод AutoFilter»

textual
                            Листинг программы 
                        

                            With Application
        .ScreenUpdating = False
        .EnableEvents = False
        .Calculation = xlCalculationManual
    End With
    
    'Your code here
    
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic
    End With
                        