.SubTotal: Controlling where the caption goes?

[PeteCresswell]

Something like this:
Selection.Subtotal
GroupBy:=4,
Function:=xlSum,
TotalList:=Array(9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20,
21, 22, 23, 24, 25, 26, 27, 28),
Replace:=True,
PageBreaks:=False,
SummaryBelowData:=True

gives me what I want except for the location of the "...Total" lab el
- which defaults to the column being totalled.

What the user wants is for all the "...Total" labels (where will be up
to 3 levels of subtotals) to appear in column 1.

Is there a way?