Error ´1004´ en tiempo de Ejecucion: no se puede obtener la propiedad PivotTables de la clase worksheet

Buenas tardes
Estoy realizando un macro, creando una tabla dinamica y una nueva hoja y me sale este error

Sub TABLA_DINAMICA()
'
' TABLA_DINAMICA Macro
'

'
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Hoja1!R1C1:R33650C85", Version:=xlPivotTableVersion15).CreatePivotTable _
TableDestination:="Hoja1!R1C87", TableName:="Tabla dinámica6", _
DefaultVersion:=xlPivotTableVersion15
Sheets("Hoja1").Select
Cells(1, 87).Select
Range("CH1").Select
Sheets.Add After:=ActiveSheet
Sheets("Hoja1").Select
Range("CI1:CK18").Select
Selection.Cut
Sheets("Hoja5").Select
Range("B3").Select
With ActiveSheet.PivotTables("Tabla dinámica6").PivotFields("fecha2 (BH)")
.Orientation = xlPageField
.Position = 1
End With
With ActiveSheet.PivotTables("Tabla dinámica6").PivotFields("cdsd2 (Bc)")
.Orientation = xlPageField
.Position = 1
End With
With ActiveSheet.PivotTables("Tabla dinámica6").PivotFields("gf2 (BA)")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tabla dinámica6").PivotFields("estado2 (BF)")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("Tabla dinámica6").AddDataField ActiveSheet.PivotTables _
("Tabla dinámica6").PivotFields("estado2 (BF)"), "Cuenta de estado2 (BF)", _
xlCount
With ActiveSheet.PivotTables("Tabla dinámica6").PivotFields("entregado (A)")
.Orientation = xlPageField
.Position = 1
End With
With ActiveSheet.PivotTables("Tabla dinámica6").PivotFields("nom-seda (CG)")
.Orientation = xlRowField
.Position = 2
End With
End Sub

De ante mano