compila a macro de erro de sintaxe de erro para tabela dinâmica

Question

Não sabe o VBA - não é possível corrigir o erro - por favor ajude.

Negrito mostra a área vermelha na macro

Sub Macro3 () ' Macro Macro3 ' 'Atalho de teclado: Ctrl + q '     Sheets.Add      ActiveWorkbook.PivotCaches.Create (SourceType: = xlDatabase, SourceData:="! Table1",     Versão: = xlPivotTableVersion14) .CreateTabelaTabelaTabelaDestino:="Folha4! R3C1",     TableName:="PivotTable3" _, DefaultVersion: = xlPivotTableVersion14

Folhas ("Folha4"). Selecione     Células (3, 1) .Selecione     Com ActiveSheet.PivotTables ("PivotTable3"). PivotFields ("Material")         .Orientation = xlRowField         .Posição = 1     Fim com     Com ActiveSheet.PivotTables ("PivotTable3"). PivotFields ("PO criado")         .Orientation = xlColumnField         .Posição = 1     Fim com     ActiveSheet.PivotTables ("PivotTable3"). AddDataField ActiveSheet.PivotTables (_         "PivotTable3"). PivotFields ("Open Qty."), "Soma da Qtde Aberta.", XlSum End Sub

Obrigado,

Rick