Prezados,
boa noite,

Estou fazendo uma macro, onde eu faço uma dinâmica com varios filtros, mas tem um em específico que não estou conseguindo fazer... Tipo, a base onde eu gero esses filtros, nesse em específico podem vir uma lista de mais de 400 números, mas não necessiaramente todos, apenas alguns...

Eu queria alguma maneira de determinar pela dinâmica, pegar SÓ os números que eu quero ou pegar TODOS menos os que eu setar...

Exemplo no código:

With ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("CFOP")
        .PivotItems("1101").Visible = False
        .PivotItems("1102").Visible = False
        .PivotItems("1151").Visible = False
        .PivotItems("1201").Visible = False
        .PivotItems("1252").Visible = False
        .PivotItems("1352").Visible = False
        .PivotItems("1411").Visible = False
        .PivotItems("1551").Visible = False
        .PivotItems("1556").Visible = False
        .PivotItems("1906").Visible = False
        .PivotItems("1907").Visible = False
        .PivotItems("1908").Visible = False
        .PivotItems("1949").Visible = False
        .PivotItems("2101").Visible = False
        .PivotItems("2102").Visible = False
        .PivotItems("2151").Visible = False
        .PivotItems("2201").Visible = False
        .PivotItems("2252").Visible = False
        .PivotItems("2352").Visible = False
        .PivotItems("2411").Visible = False
        .PivotItems("2551").Visible = False
        .PivotItems("2556").Visible = False
        .PivotItems("2920").Visible = False
        .PivotItems("3101").Visible = False
        .PivotItems("3551").Visible = False
    End With

Nesse caso de cima, a ideia é pegar tudo que for maior ou = a 5000... Já tentei fazer aquele filtro especial que o Excel oferece, mas ele não funciona na dinâmica para todos os valores...

tentei anexar, mas a planilha tem 20 mb... Segue o link: https://uploadbr.com/7uz

Alguém consegue me ajudar ?

Obrigado...