Great stuff Paul, thank you!

I had to flip these lines about, as the key column is 'B' (sorry, my fault as I should've specified this in my original post).

.SortFields.Add Key:=rData1.Columns(2), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:=Application.CustomListCount
        .SortFields.Add Key:=rData1.Columns(3), SortOn:=xlSortOnValues, Order:=xlDescending
Just one question if I may.

In the custom sort column, do I have to list all possible items that would show in it inside the array? Becasue I had to flip the two lines mentioned, the remainder of the list sorts itself alphabetically. Ideally I'd like for anything that isn't custom sorted to be "reorganized" by date again (column 'C'). Not sure if this is possible?

Thanks!