Tabla dinámica creada con macros

Hola.
Intente grabar una macros que genera una tabla dinámica a partir de información contenida en una de las hojas de excel.
Pero muestra un mensaje de error para el segundo bloque del macros indicada en negrita.
"ActiveWorkbook.pivotcaches.create ......."
sub macros3 ()
Sheets("Hoja1").Select
Range("A1:F5").Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Hoja1!F1C1:F5C6", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="Hoja1!F4C11", TableName:="Tabla dinámica3", _
DefaultVersion:=xlPivotTableVersion12

Sheets("Hoja1").Select
Cells(4, 11).Select
ActiveWorkbook.ShowPivotTableFieldList = True
ActiveSheet.PivotTables("Tabla dinámica3").RowAxisLayout xlOutlineRow
With ActiveSheet.PivotTables("Tabla dinámica3").PivotFields("datos 1")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tabla dinámica3").PivotFields("datos 2")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("Tabla dinámica3").PivotFields("datos 3")
.Orientation = xlPageField
.Position = 1
End With
End Sub