Must be a simple solution... I "simply" don't see it

The following routine should delete a named range called "Sort"from the active workbook and select an area of the active worksheet which could change with different users. Then, re-create the named range "sort"using the selection.
As one can see, the range for the previously named range "sort", is not a variable in the active name call... this is the problem.... I need to learn a strategy that will convert the current selected range into a variable that can be used in the "add name" call.

Once again, thanks in advance for your effort.

ActiveWorkbook.Names("sort").Delete
    
    Range("A5").Select
    Selection.End(xlDown).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlUp)).Select
    ActiveWorkbook.Names.Add Name:="sort", RefersToR1C1:= _
        "=Manufacturing Process!R5C1:R303C39"