Ungå at medtage "sektionskift"

Hej

Jeg har fået lavet denne, men når jeg anvender den indsætter den en black side som side 2, da den medtager "sektionsskiftet" i det nye dokument. Nogen som kan ændre dette, så den ikke tager sektionsskiftet med?

Sub GemHverSektionForSigSelv()
'Denne makro gemmer hver sektion i et dokument i hvert sit dokument

Dim xlApp As Excel.Application
Dim svar As Boolean

'Opretter Excelobjektet xlApp
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True

'Åbner det rigtige regneark
svar = xlApp.Dialogs(xlDialogOpen).Show

'Hvis der er valgt et regneark
If svar = True Then
   
    'Nummeret på den kolonne i Excel, hvor navnet står - I DETTE TILFØLDE KOLONNE A
    Kolonne = 1
   
    'Navnet på moder dokumentet
    Navn = ActiveDocument.Name
   
    'Denne kode gennemløber alle sektioner i moderdokumentet
    For række = 1 To Documents(Navn).Sections.Count
        Documents(Navn).Sections(række).Range.Select
        Selection.Copy
        Documents.Add DocumentType:=wdNewBlankDocument
        Selection.Paste
        ActiveDocument.SaveAs xlApp.Cells(række, Kolonne).Value & ".doc"
        ActiveDocument.Close
    Next
End If

xlApp.Quit
Set xlApp = Nothing

End Sub