Oggy

This uses early binding so you will need to set a  reference in advance to
the Microsoft Word x library (where x is the version) through the VBE
(Tools>References...). Once you finish your code and maybe save an quit
word, take the object variables and 'set' them to nothing in reverse order

Set wdSelect=Nothing
..........

Here is the code

Sub PasteToWord()
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Dim wdSelect As Word.Selection

Set wdApp = New Word.Application
Set wdDoc = wdApp.Documents.Add
Set wdSelect = wdDoc.ActiveWindow.Selection
wdApp.Visible = True

Worksheets("Sheet1").Range("G10:L2000").Copy
wdSelect.PasteExcelTable False, False, False
End Sub