Visual Basic para Aplicaciones - Problema de formato copiando Excel en Word

Hola y gracias de antemano. Estoy intentando copiar un informe en Word que de una Hoja Excel. La hoja Excel esta compuesta de imagenes, texto y graficos. Copiar, me copia perfectamente, el problema que tengo es que me aparece todo en un tamaño desmesurado y se sale de los margenes del documento de Word. ¿Que puedo hacer para que se ajuste?. Este es mi código:

Sub Mandar_a_Word()
Dim oWord As Word.Application
Dim oDocu As Word.Document

On Error GoTo stError

Set oWord = New Word.Application
Set oDocu = oWord.Documents.Add

oDocu.Activate

With Worksheets("Imprimible reducido")
.Range("A1:i100").Copy
oDocu.Range.PasteSpecial
End With

oWord.Visible = True

stSalir:
Exit Sub
stError:
MsgBox "Error enviando a Word. (" & Err.Number & _
") " & Err.Description, vbCritical
End Sub