Как сделать заголовки?

[anne_tt]

Здравствуйте!Подскажите как можно сделать заголовки с помощью макроса.Надеюсь на вашу помощь!

[kuklp]

Sub www()
    Dim c As Range
    With [a1].CurrentRegion
        .Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(5), _
                  Replace:=True, PageBreaks:=False, SummaryBelowData:=False
        .ClearOutline
        .AutoFilter Field:=2, Criteria1:="=*Итог", Operator:=xlAnd
                .Columns(2).Replace What:=" итог", Replacement:="", LookAt:=xlPart
        For Each c In .Offset(1).Columns(2).SpecialCells(12)
            c.Copy c(1, 2)
        Next
        .Offset(1).Columns(5).SpecialCells(12).ClearContents
    End With
    ActiveSheet.AutoFilterMode = 0
    Columns("b").Delete: Rows(2).Delete
End Sub

[anne_tt]

а если без макроса, а в формулах.....?....)

[kuklp]

Это кто писал?

Сообщение от anne_tt

Подскажите как можно сделать заголовки с помощью макроса.

anne_tt, это нормально?

[anne_tt]

сорри
просто с макросом не разобралась....

[anne_tt]

вообще-то начальный файл таков...
а итог нужен тот