If Right(Range("A" & i).Text,  4 ) = "Итог" And Range("A" & i).Text <> "Общий итог" Then
              .....

    Sheets(Direction).Select
    While Range("A" & i).Text <> ""
        If Right(Range("A" & i).Text,  4 ) = "Итог" And Range("A" & i).Text <> 
"Общий 
итог" Then
..........

    'Локализация Екселя...
    '1049 - Rus
    '1033 - Eng
    If Application.LanguageSettings.LanguageID(msoLanguageIDUI) =  1049  Then
        Total = "Итог"
        GTotal = "Общий итог"
    Else
        Total = "Total"
        GTotal = "Grand Total"
    End If
    While Range("A" & i).Text <> ""
        If Right(Range("A" & i).Text,  4 ) = Total And Range("A" & i).Text <> GTotal Then
.........

'Сортируем по дате и по коду...
    Cells.Select
    Selection.Sort Key1:=Range("G2"), Order1:=xlAscending, Key2:=Range("A2") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:= 1 , MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortTextAsNumbers
.....
'копирую на соотв. новый лист.... (это потому что есть еще один фильтр) Каждый материал в 'соотв. со справочником попадает в нужную накладную. Здесь это отрабатывается
.....
'На этом новом листе длаю итоги...

    Range("A1").Select
    Selection.Subtotal GroupBy:= 1 , Function:=xlSum, TotalList:=Array( 9 ,  10 ), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True

'Дальше иду по итогам и формирую накладную. т.е. ищу строки с "Итого"