Sub AdjustpageNumbers()
With ActiveDocument.Sections.First
  .PageSetup.DifferentFirstPageHeaderFooter = True
  .PageSetup.OddAndEvenPagesHeaderFooter = True
  With .Headers(wdHeaderFooterFirstPage).PageNumbers
    .StartingNumber = 84
    .RestartNumberingAtSection = True
  End With
  With .Headers(wdHeaderFooterEvenPages)
    .PageNumbers.NumberStyle = wdPageNumberStyleArabic
    .Range.Fields.Add .Range.Characters.Last, wdFieldPage, , False
  End With
  With .Headers(wdHeaderFooterPrimary)
    .PageNumbers.NumberStyle = wdPageNumberStyleArabic
    .Range.Fields.Add .Range.Characters.Last, wdFieldPage, , False
  End With
End With
End Sub