Пояснения. Application.ScreenUpdating = False- для запрета обновления экрана при установке автофильтра

Application.ScreenUpdating = False - для запрета обновления экрана при установке автофильтра;

ActiveSheet.AutoFilterMode = False - для отмены режима автофильтра, если он был активирован до нажатия флажка;

If Range("R2”). Value = True Then

Range(“B1:N1”).Select

Selection.AutoFilter

End If

- Для проверки значения ячейки R2, связанной с флажком. Если в ячейке значение ИСТИНА (True), то автофильтр должен быть включен