TempList.Range("M20:W" & TempList.Cells(17, 24).Value - 1).Select

This looks funky.

Check out the address associated with this Selection ...

MsgBox Selection.Address

Better yet, save the address and MsgBox the address on error.

Here is a tip certain not to help you but I'll say it anyway to annoy
you.

Yet it's true.

If I'm doing a lot of sorting I'll put the data of each row into a
class, create a list of objects of that class, and then use a modified
version of JWalk's sort in place Sub.