Not so easy if you use the selection object rather than ranges (as I suggested in your earlier post). When you use ranges, the cursor never enters the header so cannot hang there.
Your posted code does not define oRng or oHeader and almost certainly the module does not include Option Explicit at the top which would force Word to display that error, so the codes don't do anything. The code you need is
though the code as posted should not in any case hang in the header range.Selection.EndKey wdStory