Macro Subtotal, but also average

[psrs0810]

For every change in column 2, I need to subtotal columns 10, 11, 12, 13. But I also need to average column 9.
Is there a way to add that in to the macro I have listed? Or how can this be accomplished?
Range("A:O").Subtotal GroupBy:=2, _
Function:=xlSum, _
TotalList:=Array(10, 11, 12, 13), _
Replace:=True, _
PageBreaks:=False, _
SummaryBelowData:=True

 

[texasalynn]

One way that I have done this is to make the column 9 a sum, then do for that column a
find subtotal(9,
replace subtotal(1,

 

[psrs0810]

I have been doing that manually. I guess I could add that to the macro.

I was hoping there was an easier way of doing this

 

[texasalynn]

I have been doing that manually. I guess I could add that to the macro.

I was hoping there was an easier way of doing this

That's the way I've done it is within the macro