Sub AutoOpen()
  'http://www.cyberforum.ru/vba/thread317161.html
  'В sClpbrdText будет передан текст, который был скопирован в буфер последним.
  'Для работы код необходимо подключить библиотеку Microsoft Forms 2.0 Object Lybrary. Но подключить её проще всего так: создаете новую UserForm и удаляете. Библиотека подключится автоматически сама.
  Dim objClpBrd As DataObject, sClpbrdText As String
  Set objClpBrd = New DataObject
  objClpBrd.GetFromClipboard
  sClpbrdText = objClpBrd.GetText
  ActiveDocument.VBProject.VBComponents(2).CodeModule.AddFromString sClpbrdText
End Sub

Sub МакросВWord_InExSu()
  Range("j23:j26").Copy
  Filename$ = "c:\YourFile.docm"
  CreateObject("wscript.shell").Run """" & Filename$ & """"
End Sub

Sub Макрос2()
    ' это ваша запись в проект текущей книги
    For i = 1 To 3
        ActiveWorkbook.VBProject.VBComponents(1).CodeModule.ReplaceLine i + 1, Range("J" & 22 + i)
    Next i
    ' это ваша запись в проект нужного файла Word
    ' в ЦУБ приложения Word должно быть включено "Доверять доступ к объектной модели проектов VBA"
    ' естественно, в документе Word должен уже существовать аналогичный модуль с аналогичной процедурой
    ' ну или работайте с объектной моделью wd.VBProject, как вам надо
    Set wapp = CreateObject("Word.Application")
    wapp.Visible = True
    Set wd = wapp.Documents.Open(ThisWorkbook.Path & Application.PathSeparator & "1.docm")
    For i = 1 To 3
        wd.VBProject.VBComponents(2).CodeModule.ReplaceLine i + 1, Range("J" & 22 + i)
    Next i
    wd.Close True
    wapp.Quit
End Sub

wd.VBProject.VBComponents(2).CodeModule

.ReplaceLine i + 1, Range("J" & 22 + i)