Сохранение данных, расположенных снизу умных и сводных таблиц при их расширении

[VadimSh]

Добрый вечер. Помогите пожалуйста решить проблему. На Листе 1 имеется умная таблица, на Листе 2 - сводная. На листах снизу этих таблиц имеются данные, которые должны сохраниться и опускаться вниз при расширении данных таблиц. Нашел где-то решение для 2 умных таблиц, расположенных друг над другом. Вроде внедрил для Листа 2, но для этого пришлось заводить еще одну (пустую) умную таблицу.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("Таблица1")) Is Nothing Then
        a = Target.Row
        b = Range("Таблица2").Row
        If b - a = 3 Then
            Rows(a + 1).Insert Shift:=xlDown
            Rows(a * 2 + 2).Insert Shift:=xlDown
        End If
    End If
End Sub

Но для Сводной (Лист 1) ничего не получается. Может быть есть другое решение?. Заранее спасибо

[VadimSh]

Данный вопрос закинул и на другие форумы:
Планета Excel
Профессиональные приемы работы в Microsoft Excel
Клуб программистов
ExcelWorld.RU

[Elixi]

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

Данный вопрос закинул и на другие форумы

VadimSh, никто не будет бегать по другим форумам, и разбираться в том какие требования предявляете и чего на самом деле хотите или даже какие ответы вас там на других форумах не устроили. Вместо того чтобы раскидать вопрос по всем форумам, стоило бы вам, внятно, описать: например и то на какой версии Excel работаете (не у всех самая свежая), сводные таблицы случайно не с Power Query создаёте? (тоже не у каждого в наличии), по шагам что в умной таблице делаете, камим образом с таблицей работаете, точнее как данные добавлаете (вручную, по одной ячейке, по одной строке или много строк вставляете), что вас не устраивает и чего хотите достич. Ну и остерегаться таких ляпов:

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

На Листе 1 имеется умная таблица, на Листе 2 - сводная.

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

Но для Сводной (Лист 1) ничего не получается.