Sorteren Cellen met letters en oneven even

[Arievado]

Goedendag,

Ik zit met het volgende.
Ik wil graag sorteren zodat

A de cijfers na de letters goed op lopen en
B dat eerst de even en daarna de oneven cijfers
per letter onder elkaar staan. (zonder de letters er af te splitsen)

ongesorteerd ziet mijn lijst er bijvoorbeeld zo uit :


[TABLE="width: 55"]
[TR]
[TD]L01[/TD]
[/TR]
[TR]
[TD]L08[/TD]
[/TR]
[TR]
[TD]L09[/TD]
[/TR]
[TR]
[TD]L150[/TD]
[/TR]
[TR]
[TD]L154[/TD]
[/TR]
[TR]
[TD]L162[/TD]
[/TR]
[TR]
[TD]L168[/TD]
[/TR]
[TR]
[TD]L172[/TD]
[/TR]
[TR]
[TD]L176[/TD]
[/TR]
[TR]
[TD]L179[/TD]
[/TR]
[TR]
[TD]LS2[/TD]
[/TR]
[TR]
[TD]M05[/TD]
[/TR]
[TR]
[TD]M08[/TD]
[/TR]
[TR]
[TD]M142[/TD]
[/TR]
[TR]
[TD]M149[/TD]
[/TR]
[TR]
[TD]M157[/TD]
[/TR]
[TR]
[TD]M18[/TD]
[/TR]
[TR]
[TD]M19[/TD]
[/TR]
[TR]
[TD]M20[/TD]
[/TR]
[TR]
[TD]O05[/TD]
[/TR]
[TR]
[TD]O07[/TD]
[/TR]
[TR]
[TD]O09[/TD]
[/TR]
[TR]
[TD]O12[/TD]
[/TR]
[TR]
[TD]O12[/TD]
[/TR]
[TR]
[TD]O18[/TD]
[/TR]
[TR]
[TD]O20[/TD]
[/TR]
[TR]
[TD]O22[/TD]
[/TR]
[TR]
[TD]O24[/TD]
[/TR]
[TR]
[TD]O28[/TD]
[/TR]
[TR]
[TD]O29[/TD]
[/TR]
[TR]
[TD]P04[/TD]
[/TR]
[TR]
[TD]P06[/TD]
[/TR]
[TR]
[TD]P26[/TD]
[/TR]
[TR]
[TD]P33[/TD]
[/TR]
[TR]
[TD]P42[/TD]
[/TR]
[TR]
[TD]P45[/TD]
[/TR]
[TR]
[TD]P49[/TD]
[/TR]
[TR]
[TD]P53[/TD]
[/TR]
[TR]
[TD]P55[/TD]
[/TR]
[TR]
[TD]P56[/TD]
[/TR]
[TR]
[TD]P57[/TD]
[/TR]
[/TABLE]

wat ik zou willen met oneven even na sorteren is

P04
P06
P26
P42
P56

P33
P45
P49
P53
P55
P57

Om het nog moeilijker te maken voor A t/m M moet dit juist niet.

Ik kijk er naar uit hoe dit opgelost kan worden

groet,

Ariejan

 

[JEC.]

Uitgegaan van data in kolom A

Sub jec()
 Application.ScreenUpdating = False
 With Range("A1", Range("A" & Rows.Count).End(xlUp))
   .Offset(, 1) = Evaluate("if(code(left(" & .Address & "))<=77,1,if(mod(mid(" & .Address & ",2,5),2)=0,1,2))")
   .Resize(, 2).Sort Range("B1"), 1, Range("A1"), , 1, , , 2
   .Offset(, 1).ClearContents
 End With
End Sub