Trying to sort a worksheet range using VBA - ascending works but not descending

Question

I have a range of training courses in a worksheet from "A6" to "E11". The staff to attend the courses are listed in columns F to N, with their names in row 6