Sub PasteToWord()
     Dim wdApp As Word.Application
     Dim wdDoc As Word.Document
     On Error Resume Next
     Set wdApp = GetObject(, "Word.Application")
     If Err Then
          Err.Clear
          MsgBox "Забыл открыть Word?"
          Exit Sub
     End If
     Worksheets("Лист1").Activate '// измени имя листа
     Range("F1:I10").Select '// измени адрес диапазона
     Selection.Copy

     With wdApp
          .Visible = True
          .Activate
          Set wdDoc = .ActiveDocument
          .Selection.Paste
          .Selection.InsertBreak wdPageBreak
     End With

     Set wdDoc = Nothing
     Set wdApp = Nothing

End Sub