Copy Word Files including Header/Footer... add Page Break

WORD VBA Ninjas,

I need a little help tweaking this code, that is to copy all Word (.docx) files into a single Word Document.

Here is my code that currently works, in so far as, copying and pasting the files... it is not copying the Headers nor Footers and I need a Page Break after each file.

Code:

---

Sub CombineWordFiles()


Dim FinalDoc As Document, SourceDoc As Document
Dim sFile As String


Const sFolder = "C:\Users\collinp4\Desktop\WordFile\"


Application.ScreenUpdating = False
         
    Set FinalDoc = Documents.Add


    sFile = Dir(sFolder & "*.docx")
   
    Do While sFile <> ""
      Set SourceDoc = Application.Documents.Open(sFolder & sFile)
     
      With Application
              .Selection.WholeStory
              .Selection.Copy
              .ActiveWindow.Close savechanges:=wdDoNotSaveChanges
              .Selection.PasteAndFormat (wdFormatOriginalFormatting)
      End With
     
'      FinalDoc.InsertBreak (Type:=wdPageBreak)  <=== This does not work?


      sFile = Dir
    Loop
   
Application.ScreenUpdating = True
   
MsgBox ("Files are merged")


End Sub

---

Thank You for your time and help,