Workbook.Sheets[1].Outline.SummaryColumn := xlRight;
Workbook.Sheets[1].Outline.SummaryRow := xlBelow;