hvordan indsættes et range af celler i Excel i et nyt worddok

Har fundet nedenstående kodestump på nettet, men kun teksten og indholdet af celle A2 indsættes i worddukumentet
Hvordan indsætter jeg hele tabellen alle cellerne?

Dato        Person 1          Person 2        Person 3       
01-01-2006    85    0    105    0    120    0   
08-01-2006    85    0    104    -1    118    -2   
15-01-2006    84    -1    103    -1    118    0

Sub CreateDoc()
  Dim WdApp As Object

  Selection.Copy
  On Error Resume Next
  Set WdApp = GetObject(, "Word.Application")
  If Err.Number <> 0 Then
    Err.Clear
    Set WdApp = CreateObject("C:\Datamatiker\4_Semester\Alternative ProgramSprog\VisualBasic\Øvelser\NyUdskrivTabel2.doc")
  End If

  With WdApp
    .Visible = True
    .Documents.Add DocumentType:=0
    .Selection.TypeText "Running Word Using Automation"
    .Selection.TypeParagraph
    .Selection.TypeParagraph
    .Selection.Paste
   
    .SaveAs ("C:\Datamatiker\4_Semester\Alternative ProgramSprog\VisualBasic\Øvelser\NyUdskrivTabel2.doc")
    .Close ' close the document

  End With
  Set WdApp = Nothing

End Sub