Not a vba solution but using the Navigation Pane, you can move sections which use headings.
Moving/Reorganizing Pages in Microsoft Word