$_app_object->ActiveWorkbook->PivotCaches->Add({SourceType => xlDatabase, SourceData => 'Sheet1!R1C1:R4C3'})->CreatePivotTable({TableDestination => 'Sheet1!R8C3', TableName => 'PivotTable1', DefaultVersion => xlPivotTableVersion10});
   $_app_object->ActiveSheet->PivotTables('PivotTable1')->AddDataField($_app_object->ActiveSheet->PivotTables('PivotTable1')->PivotFields('a') );
   
   $_app_object->ActiveSheet->PivotTables('PivotTable1')->PivotFields('a')->{Orientation} = xlRowField;
   $_app_object->ActiveSheet->PivotTables('PivotTable1')->PivotFields('a')->{Position}    = 1;

   $_app_object->ActiveSheet->PivotTables('PivotTable1')->PivotFields('b')->{Orientation} = xlRowField;
   $_app_object->ActiveSheet->PivotTables('PivotTable1')->PivotFields('b')->{Position}    = 2;

   $_app_object->ActiveSheet->PivotTables('PivotTable1')->PivotFields('a')->{Subtotals} = [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0];