Ｅｘｃｅｌのアウトラインの設定ができません

質問

Excel2007でマクロ作成中の初心者です。
次のような表があります。
Ａ列　Ｂ列　　Ｃ列　　Ｄ列　　Ｅ列　　Ｆ列
1　　　6/20　太郎　　赤組　　　5円　　20円
2　　　6/20　次郎　　赤組　　　6円　　30円
3　　　7/20　三郎　　白組　　　8円　　40円
4　以下省略

これを以下のコードで修正できました。

Sub アウトライン設定()
Sheets("ソート").Select
Range("C3").Select
Selection.Subtotal GroupBy:=3, Function:=xlSum, TotalList:=Array(5, 6), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
ActiveSheet.Outline.ShowLevels RowLevels:=2
End Sub

アウトライン２で表示すると
Ａ列　Ｂ列　　Ｃ列　　　　Ｄ列　　Ｅ列　　Ｆ列
空欄　空欄　　太郎集計　　空欄　　　20円　　120円
空欄　空欄　　次郎集計　　空欄　　　30円　　300円
空欄　空欄　　三郎集計　　空欄　　　60円　　400円
　以下省略

これを以下の表示になるよう修正したいのですが
どうコードを変えたらよろしいでしょうか。よろしくお願いします。

アウトライン２で表示すると
Ａ列　Ｂ列　　Ｃ列　　　　Ｄ列　　Ｅ列　　Ｆ列
空欄　空欄　　太郎集計　　赤組　　　20円　　120円
空欄　空欄　　次郎集計　　赤組　　　30円　　300円
　　　　　　　　　　　　　赤組集計　50円　　420円
空欄　空欄　　三郎集計　　白組　　　60円　　400円
空欄　空欄　　花子集計　　白組　　　80円　　400円　
以下省略
　　　　　　　　　　　　白組集計　　500円　1200円
以下省略

回答No.1

tsubuyuki

集計の基準を複数持ちたいときは、
集計のダイアログで「現在の集計と置き換える」のチェックを外してやります。

以下は、ソレを使って「マクロの記録」をしたものです。

Selection.Subtotal GroupBy:=4, Function:=xlSum, TotalList:=Array(4, 5), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Selection.Subtotal GroupBy:=3, Function:=xlSum, TotalList:=Array(4, 5), _
Replace:=False, PageBreaks:=False, SummaryBelowData:=True
ActiveSheet.Outline.ShowLevels RowLevels:=3

ちなみに、最後の行は「３層目を畳む」という意味です。

参考までにどうぞ。

お礼

ありがとうございました。ご参考にしてやっとできました。

補足

何度も繰り返して実験しましたが、できません。
上のを実行するとエラーになります。