Excel to Word Automation - Help wtih scaling, fitting to page

[jordanjv]

I have created a macro to copy and paste a range of cells from Excel into a Word document. Everything seems to be copying correctly, however the information is not scaled to fit a single page in Word (it does fit a single page in Excel.) The pasted data is much larger in Word. How can I scale the pasted information to fit a single page in Word?

Here is my current code (at some point I had it figured out but somehow change it...)

Sub Email()
Range("A4:G48").Select
Selection.Copy
Set appWD = CreateObject("Word.Application.8")
appWD.Visible = True
appWD.Documents.Add.Content.PasteSpecial Link:=False, DataType:=wdPicture
With appWD.ActiveDocument.PageSetup
.TopMargin = appWD.InchesToPoints(0.4)
.BottomMargin = appWD.InchesToPoints(0.4)
.LeftMargin = appWD.InchesToPoints(0.4)
.RightMargin = appWD.InchesToPoints(0.4)
End With
End Sub