Daten von Excel ins Word via VBA

Sub NachWord()
Dim appWord As Object
Dim doc As Object
Set appWord = CreateObject("Word.Application")
Set doc = appWord.Documents.Open("C:\Test.doc")
appWord.Visible = True
doc.Activate
doc.Range.Text = Range("C5")
'Bis hierher funktioniert alles. Nun möchte ich aber den Schreibzeiger ans Ende stellen (und in  _
einem zweiten Schritt einen Zeilenumbruch einfügen)
doc.Selection.EndKey Unit:=wdLine
'Diese Zeile löst immer einen Fehler aus (Laufzeitfehler 438)
doc.Range.Text = Range("C6")
Set doc = Nothing
Set appWord = Nothing
End Sub