TYPE myrec IS RECORD (
            x varchar2(10),
            y varchar2(10), 
            z varchar2(10));
TYPE mytable is TABLE OF myrec INDEX BY BINARY_INTEGER;
TableXYZ  mytable;
TableVals OleVar;
...
    -- Converts PL/SQL table to variant type
    TableVals := To_Variant(TableXYZ);
    -- Set the cell value for range ---
    id:=GET_OLE_MEMBERID( myRange, 'Value' );
    SET_OLE( myRange, id, TableVals );

  FOR myRowNum IN 1..10 LOOP           --- цикл по номерам строк	

      --- Подготовка массива данных
      strs.delete;                     --- очищаем массив
      FOR myColumnNum IN 1..7 LOOP     --- из 7-ми элементов
           val:='(x'||myColumnNum||' y'||myRowNum||')';
           strs(myColumnNum):=val;
      END LOOP;

      --- Get the address of the first and the last cells 
      ---                    ( x0       X        , y0      Y       )
      firstCell := GetAddress( 4                 , 2 +(myRowNum-1) );
      lastCell  := GetAddress( 4 +(strs.count-1) , 2 +(myRowNum-1) );

      --- Get the range -------------------
      args := OLE2.CREATE_ARGLIST;
      OLE2.ADD_ARG( args, firstCell ); 
      OLE2.ADD_ARG( args, lastCell );
      myRange:=OLE2.GET_OBJ_PROPERTY( mySheet, 'Range', args );
      OLE2.DESTROY_ARGLIST( args);

      --- Put strs() to the range ---------
      var:=TO_VARIANT( strs );
      id:=GET_OLE_MEMBERID( myRange, 'Value' );
      SET_OLE( myRange, id, var );
      DESTROY_VARIANT( var );

      OLE2.RELEASE_OBJ( myRange );

  END LOOP;

Результат ожидаемый - все ложиться как надо:

(x1 y1)  (x2 y1)  (x3 y1)  (x4 y1)  (x5 y1)  (x6 y1)  (x7 y1)
(x1 y2)  (x2 y2)  (x3 y2)  (x4 y2)  (x5 y2)  (x6 y2)  (x7 y2)
(x1 y3)  (x2 y3)  (x3 y3)  (x4 y3)  (x5 y3)  (x6 y3)  (x7 y3)
(x1 y4)  (x2 y4)  (x3 y4)  (x4 y4)  (x5 y4)  (x6 y4)  (x7 y4)
(x1 y5)  (x2 y5)  (x3 y5)  (x4 y5)  (x5 y5)  (x6 y5)  (x7 y5)
(x1 y6)  (x2 y6)  (x3 y6)  (x4 y6)  (x5 y6)  (x6 y6)  (x7 y6)
(x1 y7)  (x2 y7)  (x3 y7)  (x4 y7)  (x5 y7)  (x6 y7)  (x7 y7)
(x1 y8)  (x2 y8)  (x3 y8)  (x4 y8)  (x5 y8)  (x6 y8)  (x7 y8)
(x1 y9)  (x2 y9)  (x3 y9)  (x4 y9)  (x5 y9)  (x6 y9)  (x7 y9)
(x1 y10) (x2 y10) (x3 y10) (x4 y10) (x5 y10) (x6 y10) (x7 y10)

Теперь попытаемся положить тот же массив из семи элементов вертикально.
Циклы те же, но формируем Range как вертикальный столбик

  FOR myRowNum IN 1..10 LOOP           --- цикл по номерам строк	

      --- Подготовка массива данных
      strs.delete;                     --- очищаем массив
      FOR myColumnNum IN 1..7 LOOP     --- из 7-ми элементов
           val:='(x'||myRowNum||'-y'||myColumnNum||')';  --- теперь myColumnNum должен играть роль Y координаты
           strs(myColumnNum):=val;
      END LOOP;

      --- Get the address of the first and the last cells 
      ---                    ( x0       X      , y0      Y          )
      firstCell := GetAddress( 7 +(myRowNum-1) , 20                 );
      lastCell  := GetAddress( 7 +(myRowNum-1) , 20 +(strs.count-1) );  --- теперь регион вертикальный, из одной колонки

      .........

  END LOOP;

После первых 2-х циклов
  1) $G$20 - $G$26
  2) $H$20 - $H$26
результат выглядит следующим образом
  (x1-y1)  (x2-y1)
  (x1-y1)  (x2-y1)
  (x1-y1)  (x2-y1)
  (x1-y1)  (x2-y1)
  (x1-y1)  (x2-y1)
  (x1-y1)  (x2-y1)
  (x1-y1)  (x2-y1)

После всех 10-ти циклов
  $G$20 - $G$26
  $H$20 - $H$26
  .............
  $P$20 - $P$26
результат выглядит так
  (x1-y1)  (x2-y1)  (x3-y1)  (x4-y1)  (x5-y1)  (x6-y1)  (x7-y1)  (x8-y1)  (x9-y1)  (x10-y1)
  (x1-y1)  (x2-y1)  (x3-y1)  (x4-y1)  (x5-y1)  (x6-y1)  (x7-y1)  (x8-y1)  (x9-y1)  (x10-y1)
  (x1-y1)  (x2-y1)  (x3-y1)  (x4-y1)  (x5-y1)  (x6-y1)  (x7-y1)  (x8-y1)  (x9-y1)  (x10-y1)
  (x1-y1)  (x2-y1)  (x3-y1)  (x4-y1)  (x5-y1)  (x6-y1)  (x7-y1)  (x8-y1)  (x9-y1)  (x10-y1)
  (x1-y1)  (x2-y1)  (x3-y1)  (x4-y1)  (x5-y1)  (x6-y1)  (x7-y1)  (x8-y1)  (x9-y1)  (x10-y1)
  (x1-y1)  (x2-y1)  (x3-y1)  (x4-y1)  (x5-y1)  (x6-y1)  (x7-y1)  (x8-y1)  (x9-y1)  (x10-y1)
  (x1-y1)  (x2-y1)  (x3-y1)  (x4-y1)  (x5-y1)  (x6-y1)  (x7-y1)  (x8-y1)  (x9-y1)  (x10-y1)

FOR myRowNum IN 1..10 LOOP           --- цикл по номерам строк

FOR myRowNum IN 1..10 LOOP           --- теперь это цикл по колонкам