See one reply at your other post

LC wrote:

Hi,

I want to know if it's possible if I can change the new
row of the subtotal such as changing the text by bolding
or italized or even changing the outline.

I have this so far:

ActiveCell.Range("A2").Select
Selection.subtotal GroupBy:=3, Function:=xlSum,
TotalList:=Array(8, 9, 10, 11, 12, 13, 14, 15, 16, 17,
18), Replace:=False,
PageBreaks:=False, _
SummaryBelowData:=True

Thanks,
LC

--

Dave Peterson