Copying and Pasting Cells to Word (size is changing, screenshot included)

Hello,

I used the macro recorder to figure out how to copy and paste a certain cell range from excel into word. If I do it manually it looks very neat and close packed as if it was actually in excel. When I use my macro it now double spaces everything and the table is huge (taking up a full page...)


This is part of a huge macro which auto-generates documents so I will just show you the necessary part.

SUB TEST()
Dim objword
Dim objDoc
Dim objSelection
Set objword = GetObject(, "Word.Application")
Set objDoc = objword.ActiveDocument
objword.Visible = True
Set objSelection = objword.Selection

 Range("P34:T63").Select
Selection.Copy
objSelection.Paste

End Sub

Here is a picture which shows the difference http://i.imgur.com/H8UJGV9.png

Please help, thanks!