Copiar datos de excel a word sin formato de tabla

Tengo unos datos en excel y quiero copiarlos a Word pero me los copia en formato tabla y lo que quiero es seleccionar la fila y copiarlos uno debajo del otro en word. Este es el código que uso.

Sub Copiar_a_Word()
Dim WordApp As Object
Set WordApp = CreateObject("Word.Application")
Selection.Copy
With WordApp
'Con este codigo se abrira Word y se creara un documento nuevo
.Visible = True
.Activate
.Documents.Add
End With
WordApp.Selection.PasteSpecial link:=True
Set WordApp = Nothing
End Sub