Laufzeitfehler 13 Typen unverträglich

Hallo zusammen!
bei folgendem VBA Code wird mir Laufzeitfehler 13 "Typen unverträglich" angezeigt.
Wie kann ich den Fehler beheben? Es geht aus einer .xlsm in eine .docx Datei.

Sub KalkulationAnpassen()
Dim x As Integer
With Sheets("Kalkulation")
x = .Cells(Rows.Count, 2).End(xlUp).Row
End With
Dim appWord As Object
Dim docxTest As Object
Set appWord = CreateObject("Word.Application")
Set docxTest = appWord.Documents.Add("C:\Users\ythale\Desktop\Yannick\VisualBasic\VBA WORD\ _
Angebottest.doc")
appWord.Visible = True
docxTest.Activate
docxTest.Bookmarks("Tabelle1").Range.Text = Range("B3", "E" & x)
Set docxTest = Nothing
Set appWord = Nothing
End Sub