[Gustav]

Ну так и запишите сами макрорекордером эту ручную команду - и будет вам ответ на VBA
Что-нибудь типа такого:

Sub Макрос1()
With ActiveSheet.Outline
.AutomaticStyles = False
.SummaryRow = xlBelow
.SummaryColumn = xlRight
End With
End Sub

нет?