Sorting, but not ascending/descending

[VBA]

Heya,

I've got the following spreadsheet:

As you can see, I've sorted it by column A. However, sometimes the date is the same and then it doesn't always go right... see f.ex. 17 dec, where the ship arrives in the harbour and then is at sea again and then departs Not exactly what happens. I had the same problem on 28 dec, but there it disappeared when I told Excel to sort secondly on column B.
However, this doesn't work for 17 dec.

So I need a way to sort such, that D always follows on A (after arrival, one departs) and S might be either after D or before A but not before D or after A... If you follow

Can I do this in Sort (some sort of "custom sort") or should I write a macro for it?

Thanks in advance.

 

[VBA]

Thank you all, you've given me some ideas.

I'll just incorperate a code if A and S or D and A fall on the same day, and make the program give an "error" or ask for help in sorting when there are 3 things happening on one day

And yes Andrew, that would be the best but unfortunately it's old data. For the new data this is indeed incorporated - I had those sorted out in a second

Thanks again for your time.