VBA Sort not getting results I need

[coach.32]

In the attached workbook, I have a list (Columns A-E) that I want sorted so that I get the results that are shown in Columns I-M.
However, when I run the code below, I can't seem to get that result. Could someone please tell me what I am missing?

Please Login or Register  to view this content.

[Marc L]

According to your expected result, you just forgot to delete rows #102 to 110 before to sort …

[coach.32]

I deleted the rows mentioned and then ran the macro. I'm still not getting the desired result?!

[Marc L]

So just after deleting rows #102 to 110 that just needs on my side a single codeline !

As a beginner starter :

    [A1].CurrentRegion.Sort [D1], xlAscending, [A1], , xlAscending, Header:=True  

Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !