Применить фильтр, не удаляя предыдущий

Question

Я пытаюсь объединить несколько фильтров нажатием кнопки, которая связана с макросом. Проблема в том, что когда я применяю фильтр, предыдущий переопределяется.

Может кто-нибудь помочь?

Вот что я придумал:

    Range("R20:R1530").Select
    Selection.AutoFilter
    ActiveSheet.Range("$R$21:$R$1530").AutoFilter Field:=1, Criteria1:="<>"
End Sub
Sub Vendor_1()
Range("Q20:Q1530").Select
    Selection.AutoFilter
    ActiveSheet.Range("$Q$21:$Q$1530").AutoFilter Field:=1, Criteria1:="<>"
End Sub

Sub Text()
Range("B20:B1530").Select
    Selection.AutoFilter
    ActiveSheet.Range("$B$20:$B$1530").AutoFilter Field:=1, Criteria1:="Text"
End Sub

Sub Video()
Range("B20:B1530").Select
    Selection.AutoFilter
    ActiveSheet.Range("$B$20:$B$1530").AutoFilter Field:=1, Criteria1:="Video"
End Sub

Sub Clean_Up_Filters()
    ActiveSheet.ShowAllData
End Sub