How do you use a macro to format subtotal rows?

Hi,

I record this. See if it helps

Non VBA way

http://www.exceltip.com/st/Applying_...Excel/270.html

    Range("A1").CurrentRegion.Select
    With ActiveSheet.Outline
        .AutomaticStyles = False
        .SummaryRow = xlBelow
        .SummaryColumn = xlRight
    End With
    Selection.ApplyOutlineStyles
    With ActiveWorkbook.Styles("RowLevel_2")
        .IncludeNumber = False
        .IncludeFont = True
        .IncludeAlignment = False
        .IncludeBorder = False
        .IncludePatterns = True
        .IncludeProtection = False
    End With
    With ActiveWorkbook.Styles("RowLevel_2").Interior
        .ColorIndex = 36
        .PatternColorIndex = xlAutomatic
        .Pattern = xlSolid
    End With

VBA Noob