Пересчет данных в таблице word по примеру. - VB

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

Доброе время суток! Помогите пожалуйста .
Возможно ли как-то сделать чтобы в таблице пересчитывались данные, таблицы очень большие бывают и вручную это очень долго делать, пытался найти, но ненашол. Структура таблиц одинаковая. Описные и пример в архиве.
Задача_Пример

Решение задачи: «Пересчет данных в таблице word по примеру.»

textual
                            Листинг программы 
                        
                            <font color="blue">Option</font> <font color="blue">Explicit</font>