Move active sheet to right side of selected sheet via input box

Hi I appreciate any help with a macro to allow me to move the active sheet to the right side of a nominated sheet via input box.

Thank you.