No sé si es a esto a lo que te refieres pero puedes hacer así:
Código:
Dim wordApp As Object
Dim wordDoc As Object
Set wordApp = CreateObject("Word.Application")
Set wordDoc = wordApp.Documents.Add
'Aquí debes especificar el rango a copiar
Worksheets("Hoja1").Range("A1:B6").Select
Application.Selection.Copy
wordApp.Visible = True
wordApp.Selection.PasteExcelTable False, False, False