Тест во вложении
При использовании теста необходимо поместить оба файла в одну папку.

Как быть если мозгов нехватает?

Уважаемые, хелп ми!)
Привести в божеский такую штуку

Нажимем "КП" (1 скрин)



Становится доступным список с листбокса:
ListBox2.AddItem "Ингосстрах"
ListBox2.AddItem "Ренессанс"
ListBox2.AddItem "РЕСО"
ListBox2.AddItem "Альфа"




Выбираем необходимое значение и кликаем "Выгрузить" (2 скрин)

После чего срабатывает макрос согласно выбранного значения из списка:

Например выбрали Ингосстрах:

   If (Range("C13") = "Ж") Then
   objWrdDoc.Bookmarks.Item("live").Range.Text = "Страхование жизни и здоровья: " & Range("M9").Text & "руб."
   objWrdDoc.Bookmarks.Item("total").Range.Text = Range("M12").Text
   End If
   If (Range("C13") = "И") Then
   objWrdDoc.Bookmarks.Item("house").Range.Text = "Страхование имущества (предмет залога): " & Range("M10").Text & "руб."
   objWrdDoc.Bookmarks.Item("total").Range.Text = Range("M12").Text
   End If
objWrdDoc.SaveAs Filename:=ThisWorkbook.Path & "\Предварительный расчет для " & Range("C5").Text & ".docx"
   objWrdDoc.Close True
   objWrdApp.Quit
   Set objWrdApp = Nothing
   
End Sub

При необходимости могу загрузить тест.

Да, тут целых 3 педали))

Sub КП_Word_Щелчок()

   Set objWrdApp = CreateObject("Word.Application")
   Set objWrdDoc = objWrdApp.documents.Add(ThisWorkbook.Path & "\Шаблон.docx")
   
   If (Range("C13") = "Ж") Then
   objWrdDoc.Bookmarks.Item("live").Range.Text = "Страхование жизни и здоровья: " & Range("M9").Text & "руб."
   objWrdDoc.Bookmarks.Item("total").Range.Text = Range("M12").Text
   End If
   If (Range("C13") = "И") Then
   objWrdDoc.Bookmarks.Item("house").Range.Text = "Страхование имущества (предмет залога): " & Range("M10").Text & "руб."
   objWrdDoc.Bookmarks.Item("total").Range.Text = Range("M12").Text
   End If
   If (Range("C13") = "Ж+И") Then
   objWrdDoc.Bookmarks.Item("live").Range.Text = "Страхование жизни и здоровья: " & Range("M9").Text & "руб."
   objWrdDoc.Bookmarks.Item("house").Range.Text = "Страхование имущества (предмет залога): " & Range("M10").Text & "руб."
   objWrdDoc.Bookmarks.Item("total").Range.Text = Range("M12").Text
   End If
   If (Range("C13") = "Ж+И+Т") Then
   objWrdDoc.Bookmarks.Item("live").Range.Text = "Страхование жизни и здоровья: " & Range("M9").Text & "руб."
   objWrdDoc.Bookmarks.Item("house").Range.Text = "Страхование имущества (предмет залога): " & Range("M10").Text & "руб."
   objWrdDoc.Bookmarks.Item("titul").Range.Text = "Страхование титула (права собственности): " & Range("M11").Text & "руб."
   objWrdDoc.Bookmarks.Item("total").Range.Text = Range("M12").Text
   End If
   If IsEmpty(Range("D12")) = False Then
   objWrdDoc.Bookmarks.Item("sozaem").Range.Text = "Страхование жизни и здоровья созаёмщика: " & Range("M8").Text & "руб."
   End If
   If (Range("H17") = "Да") Then
   objWrdDoc.Bookmarks.Item("earth").Range.Text = "Страхование земли: " & Range("M7").Text & "руб."
   End If
   
   objWrdDoc.Bookmarks.Item("name").Range.Text = Range("C5").Text
   If Range("AR22") > 0 Then objWrdDoc.Bookmarks.Item("oszup").Range.Text = "С увеличением на " & Range("J8").Text & " от основной суммы долга (по договору с банком)"
   If Range("AR22") = 0 Then objWrdDoc.Bookmarks.Item("oszup").Range.Text = "Без % увеличения основной суммы долга"
   
   objWrdDoc.SaveAs Filename:=ThisWorkbook.Path & "\Предварительный расчет для " & Range("C5").Text & ".docx"
   objWrdDoc.Close True
   objWrdApp.Quit
   Set objWrdApp = Nothing

Скрипт перекидывает информацию из ячеек в вордовский формат по закладкам

неважно где будет список
После выбора значения из списка - да, будет выполнен макрос который выше (только активные значения в макросе будут иные)
Например:
"Клик кнопки КП> Выбор из списка значения - РЕСО> запуск макроса который выше

При нажатии кнопки вылезает макрос который делает определенное действие, неважно какое.
Возможно ли сделать, чтобы после нажатия кнопки вылезал список выбора (например диапазон ячеек на скрине), а далее после выбора применялся бы определенный макрос?

Максим В.,спасибо!

Максим В., как его задать?

Добрый день, на скриншоте "стлГород" записан как производная, как это сделали?