Office: (Office 365) Bereich zweimal in Word einfügen (VBA)

Hallo zusammen,
komme mal wieder nicht weiter.
Ich füge mit folgenden Code den Bereich (S1:Z29) auf die Zweite Seite eines bestehendem Worddokument ein.

Code:

Private Sub BlattKopieren_Click()
  Dim W As Word.Application
  Dim D As Word.Document
  Dim Pfad As String
  Pfad = "\\SERVER1\martin\neuer Versuch Abrechnung\"
  Set W = CreateObject("Word.Application")
  W.Visible = True
 
  Set D = W.Documents.Add(Pfad & "Anschreiben_Test.docx") 'öffnet das word Dokoment
  W.Activate
  With W.Selection
        .Goto what:=wdGoToPage, Count:=2 'springt auf die zweite Seite
        
   ActiveSheet.Range("S1:z29").Copy
        .Paste 'Kopiert den Bereich un fügt ihn ein
         .Tables(1).AutoFitBehavior (wdAutoFitWindow)
   End With
 
End Sub

Das klappt auch.
Nun möchte ich den selben Bereich auf die dritte Seite nochmals einfügen.
Ich erweitere den code einfach mit
.Paste
.Tables(1).AutoFitBehavior (wdAutoFitWindow)
So die Theorie.
Es wird auch der Bereich eingefügt aber nicht auf die Seite 3 sonder ein Teil ist noch auf Seite 2 (es wird die bestehende Tabelle einfach erweitert)
Wie müsste ich den Code ergänzen um den Bereich zwei mal, je auf einer Seite,. einzufügen
Gruß
Martin

 

Hallo zusammen,
hat sich erledigt. Habe nicht an einen Seitenumbruch gedacht.
Habe nach dem erste einfügen
mit
.InsertBreak Type:=wdPageBreak

einen Seitenumbruch eingefügt. Jetzt klappt es
Gruß
Martin