VBA to copy Word header/footers from one doc to another is inserting unwanted paragraph at the end

Const template_dir As String = "C:\Documents and Settings\cvandenberg\My Documents\ALI\Word\"
Sub WriteReport()
    Const ERR_APP_NOT_RUNNING As Long = 429
    
    '*********** Use for development of code **************
    Dim wrdApp As Word.Application
    Dim wrdDoc As Word.Document
    Dim wdDoc As Word.Document
    Dim wrdPDoc As Word.Document
    Dim wrdLDoc As Word.Document
    '*********** Use for deployment of code **************
    'Dim wrdApp As Object
    'Dim wrdDoc As Object
    'Dim wdDoc As Object
    '*****************************************************
    
    On Error Resume Next
    Set wrdApp = GetObject(, "Word.Application")
    If Err = ERR_APP_NOT_RUNNING Then Set wrdApp = CreateObject("Word.Application")
    Set wrdDoc = wrdApp.Documents("Template_Title_Page.doc")
    'If wrdDoc Is Nothing Then Set wrdDoc = wrdApp.Documents.Open("C:\Documents and Settings\cvandenberg\My Documents\ALI\Word\Template_Title_Page.doc")
    If Err = 4160 Then Set wrdDoc = wrdApp.Documents.Open("C:\Documents and Settings\cvandenberg\My Documents\ALI\Word\Template_Title_Page.doc")
    wrdApp.Visible = True
    Err.Clear
    
    With wrdDoc
        If PublicFunctions.FileExists("C:\Documents and Settings\cvandenberg\My Documents\MyNewWordDoc.doc") Then
            Set wdDoc = wrdApp.Documents("MyNewWordDoc.doc")
            'If Not wdDoc Is Nothing Then wdDoc.Close
            If Err <> 4160 Then wdDoc.Close
            Set wdDoc = Nothing
        End If
        
        Call insertPage(wrdApp, wrdDoc, "Landscape")
        Call insertPage(wrdApp, wrdDoc, "Portrait")
        .saveAs ("C:\Documents and Settings\cvandenberg\My Documents\MyNewWordDoc.doc")
        .Close ' close the document
    End With
    Set wrdDoc = Nothing
    
    'Only closes Word if the instance was created by this code
    If Not wrdApp.UserControl Then
        wrdApp.Quit ' close the Word application
        Set wrdApp = Nothing
    End If
    On Error GoTo 0
End Sub
 
Sub insertPage(wrdApp As Object, wrdToDoc As Object, orient As String)
    Dim wrdFromDoc As Object
    Dim pOrient As Integer
    Dim itemIndex As Integer
    
    If orient = "Landscape" Then
        pOrient = 1
        itemIndex = 1
    Else
        pOrient = 0
        itemIndex = 1
    End If
    
    On Error Resume Next
    Set wrdFromDoc = wrdApp.Documents("Template_" & orient & "_Page.doc")
    'If wrdFromDoc Is Nothing Then Set wrdFromDoc = wrdApp.Documents.Open("C:\Documents and Settings\cvandenberg\My Documents\ALI\Word\Template_" & orient & "_Page.doc")
    If Err = 4160 Then Set wrdFromDoc = wrdApp.Documents.Open(template_dir & "Template_" & orient & "_Page.doc")
    Err.Clear
 
    With wrdToDoc
        'Page Break
        With .Paragraphs(.Paragraphs.Count).Range
            .Collapse Direction:=0
            .InsertParagraphAfter
            .InsertBreak Type:=2
        End With
        With .Sections(.Sections.Count)
            With .PageSetup
                .Orientation = pOrient
                .BottomMargin = wrdFromDoc.Sections(1).PageSetup.BottomMargin
                .TopMargin = wrdFromDoc.Sections(1).PageSetup.TopMargin
                .LeftMargin = wrdFromDoc.Sections(1).PageSetup.LeftMargin
                .RightMargin = wrdFromDoc.Sections(1).PageSetup.RightMargin
            End With
            .Headers(2).LinkToPrevious = False
            .Footers(2).LinkToPrevious = False
            wrdFromDoc.Sections(1).Headers(itemIndex).Range.Copy
            .Headers(2).Range.Paste
            wrdFromDoc.Sections(1).Footers(itemIndex).Range.Copy
            .Footers(2).Range.Paste
        End With
    End With
    On Error GoTo 0
End Sub