After some tests I got this code that works:
hExcel:ActiveWorkbook:PivotCaches:ADD(1,"Plan1!R15C3:R18C5"):CreatePivotTable("","Mytable").
hExcel:ActiveSheet:PivotTables("Mytable"):AddFields("fr","33333").
hExcel:ActiveSheet:PivotTables("Mytable"):PivotFields("8888"):ORIENTATION = 4.
Replace...