A difficult sort

Ok, I was trying to conserve space by sending an abbreviated workbook. Attached is the workbook I'm developing. It has sheets that have been loaded and is now at the point of sorting the sheets and putting them in the sorted order.
When you open the workbook, you will be put into a select mode, just click "cancel" and then you can see what I'm running into.

I was running the sort routine manually until I get everything worked out.

The "Lists" is the original. I used the "Lists1" sheet because the info on the "Lists" sheet is not located the same as the other.

Thanks,

Doug