Как сделать, чтобы при изменении данных автоматически обновлялся запрос и сводная

[Посетитель]

Доброе утро, подскажите пожалуйста, как сделать так, чтобы при изменении данных в умных таблицах 1 и 2 (изменение, внесение, удаление данных, добавление и удаление строк) автоматически обновлялся запрос "Запрос — Источник_к_данным" на листе BAN и в сводной таблице "Сводная таблица1", построенной на базе этого запроса.

[Администратор]

Написал вам два письма на почту с заголовком "Письмо с Форума по VBA, Excel и Word". Написал именно на почту, а не на форум.

Поместите этот код в модуль листа "Звіт" и щёлкните "Сохранить":

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Worksheets("Звіт").ListObjects("Tabl_1").Range) Is Nothing Or _
            Not Intersect(Target, Worksheets("Звіт").ListObjects("Tabl_2").Range) Is Nothing Then
        ActiveWorkbook.Connections("Запрос — Запрос — Источник_к_данным").Refresh
        Worksheets("Звіт").PivotTables("Сводная таблица1").PivotCache.Refresh
    End If
End Sub