Господа, подскажите, никак не могу найти, всё не то или слишком сложнаааа.
Есть формулы на листе:

Ячейка А1 ="Иванов" - Любая фамилия
Ячейка А2 =КОДИР.URL(A1) - Изменение кодировки
Ячейка А3 =ВЕБСЛУЖБА("http://api.morpher.ru/WebService.asmx/GetXml?s="&A2) - XML запрос
Ячейка А4 =ФИЛЬТР.XML(A3;"/xml/Р") - выборка нужного из XML ответа (фамилия в родительном падеже)
или короче:
Ячейка А2 =ФИЛЬТР.XML(ВЕБСЛУЖБА("http://api.morpher.ru/WebService.asmx/GetXml?s="&КОДИР.URL(A1));"/xml/Р") - все что сверху, но одной строкой

Как сделать все тоже самое (желательно короткий вариант) на VBA?

Всем здравствуйте!
Знаю, что похожие темы уже обсуждались. И знаю, что я немного обнаглел со своими нескромными запросами. Но может кому-то будет интересно помочь. В оправдание хочу добавить, что постарался составить максимально детальное "ТЗ" и сделал шаблоны.
Ну и собственно то, что хочется:
Есть таблица в которую регулярно заносятся обращения граждан. По каждому обращению нужно составить акт. Хочет сделать так, что бы заполнялись все данные из таблицы и плюс состав комиссии (выбрать несколько человек из готового списка - с этим вообще не представляю как быть). Ну и что бы такая заготовка акта сохранялась по маске, которая опять же из таблицы берется.