Sorting irregular data Preferably with VBA

I have a daily timesheet which is generated using a macro. Some of the staff have 1 shift and some 2, there is also other information on the sheet which relates to each member of staff and their work day (see attached) is there a way of sorting this data by the start of the 1st shifts time?

Thanks