Догадался!

Скрытый текст
wn = ActiveWorkbook.Name    Workbooks(wshablon).Worksheets("Лист1").Cells.Copy Workbooks(wn).Worksheets("Лист1").Cells(1, 1)    Workbooks(wshablon).Worksheets("Лист2").Cells.Copy Workbooks(wn).Worksheets("Лист2").Cells(1, 1)    Workbooks(wshablon).Worksheets("Лист3").Cells.Copy Workbooks(wn).Worksheets("Лист3").Cells(1, 1)

Добавил две строчки. Но только мне пришлось переименовать листы в Лист2 и Лист3, почему то макрос не захотел копировать листы с другими именами.  

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

Спасибо! Сейчас попробую под себя заточить

круто, а можно сделать так что бы макрос попросил указать путь к шаблону? То есть у меня шаблон это отдельный файл, он не находится в одной книге с реестром

Alexandr P, а как реализовать такую же задачу, но при условии что шаблон это отдельный файл и результат по каждой строке сохранялся так же в отдельном файле?