Einfügen verträgt sich mit Nummerierung nicht!

ich habe folgendes Problem, vielleicht kann mir jemand von Euch weiterhelfen!

Und zwar möchte ich Daten von Excel in Word ziehen! Das funktioniert auch schon einwandfrei!

In Word habe ich Textmarken gesetzt, welche die Stelle anzeigen! Vor diesen Stellen habe ich auch schon Nummerierungen vorgesehen:

1. [Textmarke "Prüfung1"]
2. [Textmarke "Prüfung2"]
.....

Wenn ich das Makro jetzt starte, dann öffnet Word und fänge an die jeweiligen "Texte" einzutragen, aber allerdings so:

"Text"
1.
"Text"
2.
....

Kann mir jemand vielleicht mein Makro verändern?

Sub Prüfbericht_aktivieren()
Dim oWord As Word.Application
Dim oDoc As Document
Dim i As Integer
Dim iRow As Integer
Dim iSize As Integer
Dim sFile As String

Set oWord = CreateObject("Word.Application")
oWord.Visible = True

sFile = "C:\Prüfbericht_Öl.Doc"
Set oDoc = oWord.Documents.Open(sFile)

Sheets("Übersichtsblatt").Range("B17").Copy
oWord.Selection.GoTo What:=wdGoToBookmark, Name:="Prüfungen1"
oWord.Selection.PasteSpecial Link:=False, DataType:=wdPasteText, DisplayAsIcon:=False

Sheets("Übersichtsblatt").Range("B18").Copy
oWord.Selection.GoTo What:=wdGoToBookmark, Name:="Prüfungen2"
oWord.Selection.PasteSpecial Link:=False, DataType:=wdPasteText, DisplayAsIcon:=False

.....

End Sub

Danke im Voraus

LG Chris