Selection.GoTo What:=wdGoToSection, Which:=wdGoToNext





or



Selection.GoTo What:=wdGoToSection, Which:=wdGoToPrevious



To navigate to the insertion point at the end of the section before the target, output one or two left arrow key presses:



Selection.MoveLeft Count:=1, Unit:=wdCharacter