Error con macro para tabla dinámica

Estimada Elsa:

La siguiente rutina me construye una tabla dinámica y funciona bien en Excel 2013

Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="DETALLADA_VENTAS_FIJA_MOVILES!R1C1:R99943C42", Version:= _
xlPivotTableVersion14).CreatePivotTable TableDestination:="Hoja1!R3C1", TableName:="Tabla dinámica1", DefaultVersion:=xlPivotTableVersion14
Sheets("Hoja1").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("PRODUCTO")
.Orientation = xlPageField
.Position = 1
End With
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("SEGMENTO")
.Orientation = xlPageField
.Position = 1
End With
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("DIA")
.Orientation = xlColumnField
.Position = 1
End With
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("TIENDA")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tabla dinámica1").AddDataField ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("NEGOCIO"), "Cuenta de NEGOCIO", xlCount
With ActiveSheet.PivotTables("Tabla dinámica1")
.ColumnGrand = False
.RowGrand = False
End With

Pero nos han cambiado por algún motivo a excel 2007 y no reconoce el código. El mensaje de error es que no reconoce objeto.

Grabe una macro en excel 2007 para ver diferencias y la única es xlPivotTableVersion14 que en el 2007 es xlPivotTableVersion12 Pensé que era por cantidad de celdas pero tampoco.

Me podrás ayudar?

Muchas gracias!

Alberto Meza