Problema al crear una tabla dinanica en una macros

Hola como estan?
tengo un problema, al crear una macros con una tabla dimanica, al correr la macros me aparece este error
Sub Macro6()
'
' Macro6 Macro
'
'
Cells.Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"macro!F1C1:F1048576C17", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="tabla!F1C1:F25C7", TableName:="Tabla dinámica4", _
DefaultVersion:=xlPivotTableVersion12
Sheets("tabla").Select
Cells(1, 1).Select
With ActiveSheet.PivotTables("Tabla dinámica4").PivotFields("Código item")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tabla dinámica4").AddDataField ActiveSheet.PivotTables _
("Tabla dinámica4").PivotFields("Saldo"), "Cuenta de Saldo", xlCount
With ActiveSheet.PivotTables("Tabla dinámica4").PivotFields("Cuenta de Saldo")
.Caption = "Suma de Saldo"
.Function = xlSum
End With
Range("C12").Select
ActiveWindow.SmallScroll Down:=-21
End Sub
sale un mensaje que dice-Error en tiempo de ejecución '5': argumento o llamada a procedimiento no válido.
Que puedo hacer? Gracias