Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(5), _
        Replace:=True, PageBreaks:=True, SummaryBelowData:=True

oExcel=CREATEOBJECT("Excel.Application")
oExcel.visible= .T.

oW=oExcel.Workbooks.Add(lcTemplate)
ow.Worksheets[1].select

oRange = oExcel.ActiveSheet.Range("A7:F"+TRANSFORM(6+lnRecCount))

oExcel.ActiveSheet.paste(oRange)
** now I want excel to subtotal by column a


 ****Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(5), _
        Replace:=True, PageBreaks:=True, SummaryBelowData:=True