Sub copieversword()
Dim wdApp As Object, wdDoc As Object
Set wdApp = CreateObject("Word.Application")
On Error Resume Next
Set wdDoc = wdApp.Documents.Add
wdApp.Visible = True
wdDoc.PageSetup.Orientation = wdOrientLandscape
Application.ScreenUpdating = False
Sheets(1).Range("A1:X78").Copy
wdDoc.Paragraphs(wdDoc.Paragraphs.Count).Range.InsertParagraphAfter
wdDoc.Paragraphs(wdDoc.Paragraphs.Count).Range.Paste
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub