I suppose that I would start with something like this:

Sub ScratchMacro()
With ActiveDocument
.Sections(2).Headers(wdHeaderFooterPrimary).LinkTo Previous = False
.Sections(1).Range.Delete
End With
End Sub