I apparently have an issue with the tird row of this code:
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "Datos!R1C1:R