Set SummaryRow format

Hi, :hi:

How could I set the SummaryRow format after grouping?
Is there at least any way to acces directly row numbers or to obtain Ranges?

The code used to add subtotals:

[vba]
Set RgSubTotal = ws.Range(ws.Cells(Row, Col), ws.Cells(LastRow, LastCol))
RgSubTotal.Subtotal GroupBy:=3, Function:=xlSum, _
TotalList:=Array(4, 5, 6, 7, 8, 9, 10), Replace:=True, PageBreaks:=False, SummaryBelowData:=xlSummaryBelow

ws.Outline.ShowLevels RowLevels:=2
ws.Outline.AutomaticStyles = False
[/vba]

Thanks!