Public Sub ExcelToWord()
    Dim xlWb As Excel.Workbook
    Dim xlWs As Excel.Worksheet
    Dim xlRng As Excel.Range
    Dim wdApp As Word.Application
    Dim wdDoc As Word.Document
    Dim wdRng As Word.Range
    
    Set xlWb = ThisWorkbook
    Set xlWs = xlWb.Worksheets("Лист1")
    Set xlRng = xlWs.Range("A1:C4")
    
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True
    
    Set wdDoc = wdApp.Documents.Add
    Set wdRng = wdDoc.Content
    
    xlRng.Copy
    wdRng.Paste

    wdDoc.SaveAs Filename:="Doc1.rtf", _
      FileFormat:=wdFormatRTF
      
    wdDoc.Close
    wdApp.Quit
    
    Set wdRng = Nothing
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub