This should do it. Assumption is that the drop down lists on User Tools sheet have no blanks between them.
The comments in the VBA code should be describe what's being done
DropDownDefn.xlsm