Excel (VBA) Сводные таблицы. Создание. Обновление.

Формулировка задачи:

Есть таблица в Excel, на основе которой необходимо построить сводную.
Возможны 2 ситуации: количество строк в таблице увеличивается, либо таблица очищается (все строки удаляются).

Необходимо

создать макрос, который будет формировать сводную таблицу на основе данных исходной таблицы и автоматически обновлять данные при переходе на лист сводной таблицы. Макрос создания сводной таблицы записала. Получилось вот что:

Далее пробую писать свой код:

Короче ничего не строится.
Может быть кто-нибудь решал подобные задачи и поделится куском кода..буду очень признательна...

Решение задачи: «Excel (VBA) Сводные таблицы. Создание. Обновление.»

textual
                            Листинг программы 
                        
                            s = <font color="teal">"Работы!"</font> & Range(Cells(<font color="darkblue"><b>2</b></font>, <font color="darkblue"><b>2</b></font>), Cells(i - <font color="darkblue"><b>1</b></font>, <font color="darkblue"><b>16</b></font>)).Address(ReferenceStyle:=xlR1C1)