Создать сводную таблицу с помощью VBA.

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

Здравствуйте. Нужна помощь от профи. Идея такая.
Мне нужно создать сводную таблицу куда будет помещаться статистика об уникальных значения со всех листов в книге в дополнительный новосозданный лист. Допустим есть такие значения как Театр, Кино, Парк, Работа, Игральная площадка и т.д. Эти слова встречаются по несколько раз в разных листах.

Нужна сводная таблица где можно было бы подсчитать количество театров, парков и т.д. а также подсчитать общее количество всех этих слов. Но при этом таблица изменяется (не мной).

Необходимо чтобы если количество парков было 0, то это ячейка всё равно отображалась в сводной таблице и при подсчёте выдавало 0.