1004 erro em tempo de execução (Que ocorre quando o código está sendo executado. Ocorre um erro em tempo de execução quando uma instrução tenta uma operação inválida)

Portanto é meio que "generico" ,com causa especifica desconhecida.
Sómente pelas 3 linhas de codigo fica um tanto quanto dificil entender onde há o erro
Achometro:
Pode ser pelo codigo estar "parado" em outra planilha que não a que contem o Pivot.
Experimente
altere de activesheet para sheets("nomedasheetcomopivot").pivot ou selecione a planilha antes da linha do activesheet

Reinaldo, obrigado pela explicação, mas preciso entender melhor.

Realmente as linhas abaixo foram geradas gravando uma macro. Esta macro eu gravei selecionando um filtro de uma tabela dinamica. Este filtro da planilha dinamica tem os mesmos dados dados do if, onde é feito um filtro de acordo com a categoria selecionada em uma lista.

A variavel tudo(nao sei se realmente e uma variavel) precisa ser alterada de acordo com a alteracao da lista que fica selecionada atraves do if.

ActiveSheet.PivotTables("Total de Demandas Carteira").PivotFields( _
"SUPERINT_SOLICIT").ClearAllFilters
ActiveSheet.PivotTables("Total de Demandas Carteira").PivotFields( _
"SUPERINT_SOLICIT").CurrentPage = "(Tudo)"

Não tenho muita experiencia em VBA e estou começando agora.
Agradeço muito seu auxilio.

Obrigado

Quando gravou a macro, voce estava como o pivot em destaque (selecionado e/ou posicionado na planilha onde o mesmo está.Então é posivel que ao executa-la esteja em outro local.
Melhor seria e disponibiliza-se o seu modelo (os dados/valores podem se ficticios; para que possamos analisar como mai propriedade.
Quanto ao "tudo" não me parece uma variavel, quando gravou o sistema incliu assim?

Pessoal, boa tarde.

Consegui resolver metade do meu problema, mas ainda preciso de ajuda. Seguinte, com o codigo abaixo consigo atualizar todas as tabelas dinamicas de acordo com o filtro selecionado. Porem, ainda nao consegui fazer com ele atualize sozinho e outro dado importante; a macro só atualiza se eu estiver com a aba que consta as tabelas dinamicas em destaque. Alguem pode me ajudar a atualizar sem que a aba esteja em destaque. Agradeço muito a ajuda de todos. Segue o codigo que criei.

If Plan12.Cells(9, 4) = "Todas" Then
    ActiveSheet.PivotTables("Tabela dinâmica15").PivotFields("SUPERINT_SOLICIT"). _
        ClearAllFilters
    ActiveSheet.PivotTables("Tabela dinâmica15").PivotFields("SUPERINT_SOLICIT"). _
        CurrentPage = "(Tudo)"
    ActiveSheet.PivotTables("Tabela dinâmica14").PivotFields("SUPERINT_SOLICIT"). _
        ClearAllFilters
    ActiveSheet.PivotTables("Tabela dinâmica14").PivotFields("SUPERINT_SOLICIT"). _
        CurrentPage = "(Tudo)"
        ActiveSheet.PivotTables("Tabela dinâmica13").PivotFields("SUPERINT_SOLICIT"). _
        ClearAllFilters
    ActiveSheet.PivotTables("Tabela dinâmica13").PivotFields("SUPERINT_SOLICIT"). _
        CurrentPage = "(Tudo)"
    ActiveSheet.PivotTables("Tabela dinâmica12").PivotFields("SUPERINT_SOLICIT"). _
        ClearAllFilters
    ActiveSheet.PivotTables("Tabela dinâmica12").PivotFields("SUPERINT_SOLICIT"). _
        CurrentPage = "(Tudo)"
    ActiveSheet.PivotTables("Tabela dinâmica11").PivotFields("SUPERINT_SOLICIT"). _
        ClearAllFilters
    ActiveSheet.PivotTables("Tabela dinâmica11").PivotFields("SUPERINT_SOLICIT"). _
        CurrentPage = "(Tudo)"
    ActiveWindow.SmallScroll ToRight:=6
    ActiveSheet.PivotTables("Tabela dinâmica10").PivotFields("SUPERINT_SOLICIT"). _
        ClearAllFilters
    ActiveSheet.PivotTables("Tabela dinâmica10").PivotFields("SUPERINT_SOLICIT"). _
        CurrentPage = "(Tudo)"
    ActiveWindow.SmallScroll ToRight:=3
    ActiveSheet.PivotTables("Tabela dinâmica9").PivotFields("SUPERINT_SOLICIT"). _
        ClearAllFilters
    ActiveSheet.PivotTables("Tabela dinâmica9").PivotFields("SUPERINT_SOLICIT"). _
        CurrentPage = "(Tudo)"
End If
End Sub

a macro só atualiza se eu estiver com a aba que consta as tabelas dinamicas em destaque

Experiomente colocar a seguinte linha Sheets("TAB. DINAMICA GRAFICO ENTREGUE").Activate logo após o If..Then

If Plan12.Cells(9, 4) = "Todas" Then
Sheets("TAB. DINAMICA GRAFICO ENTREGUE").Activate
ActiveSheet.PivotTables("Tabela dinâmica15").PivotFields("SUPERINT_SOLICIT"). _
ClearAllFilters....

Obrigado pela Informação Reinaldo, ficou muito bom.

Problema resolvido