Bom dia, estou com serio problema para montar a tabela dinamica no vba.. fiz pelo metodo mais facil (pelo oq estou vendo pelos foruns todo mundo tenta assim mas nao consegui aplicar para o meu caso)

a macro grava me deu o seguinte codigo e gera o erro 5:

Sub tabeladinamicateste2()
'
' tabeladinamicateste2 Macro
'

'
    Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Arq4159c_mes0412!R1C1:R4426C4", Version:=xlPivotTableVersion12). _
        CreatePivotTable TableDestination:="Plan5!R3C1", TableName:= _
        "Tabela dinâmica4", DefaultVersion:=xlPivotTableVersion12
    Sheets("Plan5").Select
    Cells(3, 1).Select
    Range("C9").Select
    ActiveSheet.PivotTables("Tabela dinâmica4").AddDataField ActiveSheet. _
        PivotTables("Tabela dinâmica4").PivotFields("Banco"), "Contar de Banco", _
        xlCount
    With ActiveSheet.PivotTables("Tabela dinâmica4").PivotFields("Motivo")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Tabela dinâmica4").PivotFields( _
        "Tipo de Pagamento")
        .Orientation = xlColumnField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Tabela dinâmica4").PivotFields("Mês")
        .Orientation = xlColumnField
        .Position = 2
    End With
End Sub

***Não sei aonde esta errado.. vi em outros foruns.. uns falaram que é pq eu estava selecionando celulas demais.. mas na verdade nao estou, soh estou selecionando o intervalo cerreto dos dados.. Enfim, espero que consiga me ajudar,

Desde já obrigada

Bruna Brum