Word и Excel VBA

Sub КудаНадо() 'Вставляет результат сразу за закладкой с именем r (если она есть).
z = "rezultat" 'или какая-то формула, этот результат вычисляющая
    Selection.GoTo wdGoToBookmark, Name:="r" 'теперь выделение - на закладке r
    Selection.InsertAfter z 'вставили (выделив при этом) содержимое переменной z после r
Exit Sub
    Selection.Collapse wdCollapseEnd 'сброс выделения (к концу)
    Selection = Space(1)    'печать пробела (вообще, строки 6, 7 и 8 - по желанию клиента)
    Selection.Collapse
End Sub

Sub Кнопка1_Щелчок()
Dim wdApp As Object, wdDoc As Object 
    Dim ПланВыпуска As String
    Dim MainSheets As String
    
    Const my_wdGoToBookmark = -1 
 
    ПланВыпуска = ThisWorkbook.Name
    MainSheets = "Выпуск изделия"
 
    Set wdApp = CreateObject("Word.Application")
    On Error Resume Next
 
    Set wdDoc = wdApp.Documents.Open(ThisWorkbook.Path & "\Отчет в Word.docx")
    If Err <> 0 Then
        MsgBox "Отчет в Word.docx не найден"
        Exit Sub
    End If
    wdApp.Visible = True
 
        With wdApp.Selection
        .Goto What:=my_wdGoToBookmark, Name:="з1" 
            .TypeText Workbooks(ПланВыпуска).Worksheets(MainSheets).Range("B10").Text
        .Goto What:=my_wdGoToBookmark, Name:="з2"
            .TypeText Workbooks(ПланВыпуска).Worksheets(MainSheets).Range("C10").Text
        .Goto What:=my_wdGoToBookmark, Name:="з3"
                    .TypeText Workbooks(ПланВыпуска).Worksheets(MainSheets).Range("D10").Text
             
' ******       
        .Goto What:=my_wdGoToBookmark, Name:="з4"
            .S = Cells(10, 2) * Cells(6, 2) + Cells(10, 3) * Cells(6, 3) + Cells(10, 4) * Cells(6, 4)
            .InsertAfter S
' ******
 
        .Goto What:=my_wdGoToBookmark, Name:="з5"
            .TypeText Workbooks(ПланВыпуска).Worksheets(MainSheets).Range("E10").Text
   
    End With
 
    Set wdApp = Nothing
    Set wdDoc = Nothing
 
End Sub

Private Sub CommandButton1_Click()
    Dim exApp As Object
    Dim ПланВыпуска As String
    Dim MainSheets As String
 
    Set exApp = CreateObject("Excel.Application")
    exApp.Workbooks.Open ThisDocument.Path & "\ПланВыпуска.xlsm"
    exApp.Visible = True
    MainSheets = "Выпуск изделия"
    On Error Resume Next
    With exApp.Worksheets(MainSheets)
        .Range("A6").Value = ThisDocument.Bookmarks("з1").Range.Text
        .Range("A7").Value = ThisDocument.Bookmarks("з2").Range.Text
        .Range("A8").Value = ThisDocument.Bookmarks("з3").Range.Text
    End With
 
    Set exApp = Nothing
End Sub