Sort Time Values Chronologically...Tricky format!

As a follow-up to my previous thread, I now need to sort a column of times into chronological order using my VBA code. I've now converted from a simple string of text to a time format, but am having issues sorting into proper order.

For background info, this is a timetable for bus routes. I need to combine the eastbound and westbound times in column H in chronological order. In the column of times (column H), "a" stands for AM, "p" stands for PM, and "x" stands for end-of-day (meaning if a bus route's last time is at 12:30a, it is considered "x"). I have attached my worksheet (which I manually sorted column H chronologically in the desired order for illustration purposes), as well as my current VBA code. Please let me know if I can provide any additional information.

Thanks!

Please Login or Register  to view this content.

121612 Weekday El Monte Bus Trips.xlsm