Erro 1004 Macro VBA

Question

Bom dia,

Minha macro apresenta o erro "Erro em tempo de execução 1004: não é possível obter a propriedade pivotfields da classe pivottable"

meu código é:

Sub PreçoMED()

'Ajuste na tabela resumo marca
Application.ScreenUpdating = False
TipoPreco = Range("E12")
Range("F14:T23,E12").Select

Select Case Range("E12")
    Case Is = "PREÇO MÍNIMO"
        Selection.Replace What:="MÍNIMO", Replacement:="MÉDIO", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
    Case Is = "PREÇO MÁXIMO"
        Selection.Replace What:="MÁXIMO", Replacement:="MÉDIO", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
End Select

'Ajuste na dinamica por produto
Select Case TipoPreco
    Case Is = "PREÇO MÍNIMO"
    ActiveSheet.PivotTables("PreçoProduto").PivotFields("Mín de preço à vista").NumberFormat = "0.00"
    ActiveSheet.PivotTables("PreçoProduto").PivotFields("Mín de preço à vista").Function = xlAverage
    Case Is = "PREÇO MÁXIMO"
    ActiveSheet.PivotTables("PreçoProduto").PivotFields("Máx de preço à vista").NumberFormat = "0.00"
    ActiveSheet.PivotTables("PreçoProduto").PivotFields("Máx de preço à vista").Function = xlAverage
End Select
Range("a1").Select
Application.ScreenUpdating = True
End Sub

Podem me auxiliar? já conferi as tabelas e estão com os nomes Ok.

tenho o home and business 2019