Columns("A:I").Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    "EXTRACCION_DATOS!R1C1:R1048576C9", Version:=xlPivotTableVersion15). _
    CreatePivotTable TableDestination:="TABLA!R5C1", TableName:= _
    "Tabla dinámica1", DefaultVersion:=xlPivotTableVersion15

Columns("A:I").Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"EXTRACCION_DATOS!R1C1:R1048576C9", Version:=xlPivotTableVersion12). _
CreatePivotTable TableDestination:="TABLA!R5C1", TableName:= _
"Tabla dinámica1", DefaultVersion:=xlPivotTableVersion12