codice:
   
 ExcelApp.Range("B5").Select
    ExcelApp.Selection.Subtotal GroupBy:=ColCliente - 1, Function:=xlSum, TotalList:=Array(ColImpImponib - 1, ColSconto - 1, ColTotComp - 1), Replace:=True, PageBreaks:=False, SummaryBelowData:=True
    ExcelApp.ActiveSheet.Outline.ShowLevels RowLevels:=3