If I understand correctly, you want to insert a page at the cursor that doesn't have the header on the previous and following page and you want the text "Now is the time" in that new currently empty page? In that case use ranges as it avoids opening and closing headers.
Sub Macro1()
Dim oRng As Range
Dim lngSect As Long
'Set a range to the cusror position
Set oRng = Selection.Range
'If the range is not a single point, collapse the range to its start
orng.collapse 1
'Insert two next page section breaks
oRng.InsertBreak wdSectionBreakNextPage
oRng.InsertBreak wdSectionBreakNextPage
'Get and record the section number of orng (which is now at the start of the page after the inserted page
lngSect = oRng.Information(wdActiveEndSectionNumber)
'Unlink the current section and the previous section headers
ActiveDocument.Sections(lngSect - 1).Headers(wdHeaderFooterPrimary).LinkToPrevious = False
ActiveDocument.Sections(lngSect).Headers(wdHeaderFooterPrimary).LinkToPrevious = False
'Ensure that the sectiosn either side of the inserted page have the same headers
ActiveDocument.Sections(lngSect).Headers(wdHeaderFooterPrimary).Range = ActiveDocument.Sections(lngSect - 2).Headers(wdHeaderFooterPrimary).Range
'Remove the header from the new page
ActiveDocument.Sections(lngSect - 1).Headers(wdHeaderFooterPrimary).Range.Text = ""
'Move the range to the new section
Set oRng = ActiveDocument.Sections(lngSect - 1).Range
'Collapse the range to the start of that section
oRng.Collapse 1
'Add the text
oRng.Text = "Now is the time"
lbl_Exit:
Set oRng = Nothing
Exit Sub
End Sub