Exceldaten per VBA zu Word übertragen

Hallo liebe Community,

ich hoffe jemand kann mir mit meinem Anliegen weiterhelfen, ich bin für jede Hilfe wirklich sehr dankbar.
Ich möchte gerne Daten aus einer Exceldatei in eine bestehnde Worddatei per VBA übertragen.
Dabei müssen gewisse Spalten der Excel an gewisse Positionen in der Worddatei. Vielleicht geben die Bilder dazu etwas mehr Aufschluss.
Worddokument:

Exceldokument:


Die Zeilen die übertragen werden soll, sind immer unterschiedlich viele, am schönsten wäre es, wenn das Worddokument dann auch immer genau die Anzahl an Zeilen aufzeigt, die das Worddokument hat.

Mein Code zum öffnen der Worddatei sieht zur Zeit wie folgt aus:

Sub Test_Word_Datei()
'
' Test_Word_Datei Makro

Dim appWord     As Object
Dim oWord       As Object
Dim sUName      As String

sUName = Environ("username")
With Worksheets("Tabelle7")
End With
Set oWord = CreateObject("Word.Application")
With oWord
.Documents.Add Template:="C:\Users\" & sUName & "\Desktop\Beispiel"
.Visible = True
.Activate

End With

End Sub