Возможно ли такое сделать в автофильтре

[Робин]

Спасибо всем за реальную помощь.

[Скрипт]

DiemonStar, автору темы нужно, чтобы строка итогов была под заголовком таблицы. А вы предлагаете решение, что строка итогов внизу таблицы.

kuklp, и вы тоже предлагаете строку итогов внизу таблицы, а автору нужно под заголовком таблицы.

[Робин]

Сообщение от Скрипт

DiemonStar, автору темы нужно, чтобы строка итогов была под заголовком таблицы. А вы предлагаете решение, что строка итогов внизу таблицы.

kuklp, и вы тоже предлагаете строку итогов внизу таблицы, а автору нужно под заголовком таблицы.

Да нет, можно и внизу таблицы. Только чтоб макросом и без пустых сток, перед строкой итогов.

[IgorGO]

Робин, хочу Вас поздравить!!!
Вы так смогли завернуть задачу, что тема благополучно пережила конец света и, похоже, не закончиться в этом году...

Напоминает ситуацию с Каем и Снежной Корелевой, когда Кай говорит:
-- Снежная Королева, у меня не получается из букв Ж, А, О и П нельзя сложить слово ВЕЧНОСТЬ!

[Робин]

Уважаемый IgorGO!
У меня желание и проще, и скромнее.

[Скрипт]

Робин, за вознаграждение готов попробовать написать вам код.
Почта:
mailbox1010@mail.ru

[Робин]

Доброго вечера!
И С Новым Годом, с новым счвстьем друзья!
Ну вот, сочинил по образцу макрос для вставки в фильтр ИТОГОВой строки. Да вот беда. Вместо одной строки, вставляет сразу две. И я не могу сообразить почему.
Пожалуйста спецы, гляньте кто нить.
Заранее спасибо!

[Скрипт]

Sub Procedure_1()

    Dim myRange As Excel.Range
    Dim myLastRow As Long
    
    '1. Чтобы код читать проще, даём нашему диапазону имя "myRange".
    'Через это имя будем обращаться к нашему диапазону.
    Set myRange = ActiveSheet.UsedRange
    
    '2. Посмотрите здесь, что из себя представляет диапазон.
    Debug.Print myRange.Address
    
    '3. Определяем последнюю строку, куда вставить данные.
    myLastRow = myRange.Rows.Count + myRange.Row
    
    '4. Вставляем данные.
    Cells(myLastRow, 1) = "ИТОГО :"
    Cells(myLastRow, 2).FormulaR1C1 = "=SUBTOTAL(109,R[-8]C:R[-1]C)"
    Cells(myLastRow, 3).FormulaR1C1 = "=SUBTOTAL(109,R[-8]C:R[-1]C)"
    Cells(myLastRow, 4) = "х"
    Cells(myLastRow, 5).FormulaR1C1 = "=SUBTOTAL(109,R[-8]C:R[-1]C)"
    Cells(myLastRow, 6).FormulaR1C1 = "=SUBTOTAL(109,R[-8]C:R[-1]C)"
    Cells(myLastRow, 7).FormulaR1C1 = "=SUBTOTAL(109,R[-8]C:R[-1]C)"
        
End Sub

[Робин]

Спасибо!
Почти все понятно у вашем макросе, за исключением отдаленности ИТОГвой строки от основной таблицы.
Каким выражением этот пробел регулируется.
И возможно ли итоговую строку переместить под самую таблицу, без пустых строк. Либо поднять вверх, под строку заголовков.

[Робин]

Пардон!
Уже разобрался, за исключением "разместить под строкой заголовков".
Еще раз СПАСИБО за помощь!