bueno por si alguien tiene la misma necesidad lo resolvi de la siguiente manera
como me ponia nada mas que el subtotal en una sola columna
al final recorro la hoja de calculo y donde esta cada subtotal
hago copiar y pegar a la celda de al lado
Código:
excel.range['f'+inttostr(recorrer)].copy;
excel.range['g'+inttostr(recorrer)].select;
Excel.ActiveSheet.Paste;
no es la solucion ideal pero resulta
gracias por su atencion