Здравствуйте, коллеги!

Задача простая:
Есть прайс-лист с различными листами (на каждом листе цены могут быть указаны в различных валютах; соответствующие ячейки содержат форматирование) необходимо написать кусок кода для копирования выбранных строк из различных листов прайс-листа и последующей вставки в новую книгу (подготовлен шаблон; формат ячеек, который будет отображать цену стоит по-умолчанию - "общий") с сохранением форматов чисел (цен) оригинального прайс-листа.

Псевдокод который не дает результатов:

Цикл по всем выбранным значениям прайс-листа
Worksheet_Шаблон.Cells(индекс строки, индекс столбца).NumberFormat = Worksheet_Прайс-лист.Cells(индекс строки, индекс столбца).NumberFormat;
Worksheet_Шаблон.Cells(индекс строки, индекс столбца).Value = Worksheet_Прайс-лист.Cells(индекс строки, индекс столбца).Value;

Не копируется формат!

Задача №2 - конвертация скопированных значений цены в различные валюты (обменный курс задается руками в ячейки). Нужно как-то определять в какой валюте скопированная цена.

Думаю, что задача очень распространенная, кто-то уже делал... Выложите кусочек кода, отвечающий за форматирование.

Помогите, пожалуйста.