H o l a:
El ajuste lo tienes que hacer en tu hoja de excel, en excel tienes la letra Calibri tamaño 10, mientras que en word la tienes en Arial tamaño 8, las filas que tienes entre excel y word no son las mismas, además el tamaño de la fila en excel y word no es el mismo, es por eso que el formato de excel al pasarlo a Word no queda en una sola hoja.
Tienes que ajustar lo siguiente en tu hoja de excel:
- El tipo de letra Arial tamaño 8
- El alto de las filas debe ser de 10.
- Revisa las filas en blanco que tienes en excel y quita las que no necesites.
Te anexo la macro con algunos ajsutes:
Sub PasarAWord()
'Por.Dante Amor
Sheets("Autorización manejo info").Select
u = Range("A" & Rows.Count).End(xlUp).Row + 1
ActiveSheet.UsedRange.Copy
Set appWord = CreateObject("word.application")
appWord.Visible = True
appWord.Documents.Add
'appWord.Selection.TypeText "" & Chr(11)
appWord.Selection.PasteSpecial DataType:=1
Set appWord = Nothing
Application.CutCopyMode = False
End Sub