Как объединить информацию об одинаковых позициях из трех файлов excel в один - VB

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

Есть 3 файли excel:
1. расчет (служит для расчета стоимости изделия) он же "калькулятор"
2. прайс лист
3. наличие на складе
Все 3 файлика существуют отдельно и каждый день обновляются.
Проблема следующая:
Приходит клиент, и я сначала открываю файл-калькулятор, заполяню заказ, затем открываю свежий прайс, смотрю цену и вставляю ее в калькулятор, все считается. Теперь клиенту хочется узнать наличие. Открываю 3-й файлик, смотрю наличие.
Если все проходит с первого раза, то это хорошо, но вот если нет, то начиниется жуткая каша. Считаешь другой материал, опять смотришь наличие. И так пока не наткнешься на тот, который все таки есть на складе. Или от обратного, смотришь какие есть в наличии, потом копаешь прайс и считаешь цену. Жутко медленно получается и клиент и я после первых 15-ти минут поиска начиннаем жутко нервничать (я даже больше).
Хотелось бы сбить все в кучку. И получить что-то типа:
Открываю калькулятор, заполняю заказ. На втором листе выбираю материал по любому принципу, который понравится, по наличию или по артукулу или по наименованию. Сверху с помошью промежуточных итогов (или другим способом) вытаскиваю цену и другую интересующую информацию. Публикую ее на первом листе с расчетами. В результате вся информация на первом листе есть, меняя материалы на втором листе я автоматом пересчитываю изделия и сразу смотрю наличие. Прям мечта.
Вот собственно вопрос: Как сбить информацию из файликов Прайс и Склад во вторую страницу файла Расчет?
Хотелось бы просто при получении нового прайса заменить им старый и все будет работать уже по новым ценам. Так же с файлом склада. Удалил старый, копировал новый. Запустил "расчет.xls" и все рабоатет с новыми данными.

Решение задачи: «Как объединить информацию об одинаковых позициях из трех файлов excel в один»

textual
                            Листинг программы 
                        

                            =ВПР(A4;Прайс!B:C;<font color="darkblue"><b>2</b></font>;<font color="darkblue"><b>0</b></font>)
на
=ЕСЛИ(ЕНД(ВПР(A24;Прайс!B:C;<font color="darkblue"><b>2</b></font>;<font color="darkblue"><b>0</b></font>));<font color="teal">""</font>;ВПР(A24;Прайс!B:C;<font color="darkblue"><b>2</b></font>;<font color="darkblue"><b>0</b></font>))


=ВПР(A37;Склад!B:C;<font color="darkblue"><b>2</b></font>;<font color="darkblue"><b>0</b></font>)
на
=ЕСЛИ(ЕНД(ВПР(A23;Склад!B:C;<font color="darkblue"><b>2</b></font>;<font color="darkblue"><b>0</b></font>));<font color="teal">""</font>;ВПР(A23;Склад!B:C;<font color="darkblue"><b>2</b></font>;<font color="darkblue"><b>0</b></font>))
                        