[VBA] Αυτόματη Ταξινόμηση

[xristos]

Φίλοι του φόρουμ Καλησπέρα.
Φίλοι για το ίδιο θέμα (περίπου) με είχατε βοηθήσει και προσπάθησα να το προσαρμόσω
σε νέα δεδομένα αλλά δεν μπόρεσα γιατί έχω τα εξής προβλήματα.
1ο Στο επάνω μέρος αντί του Α,B,C,D κλπ μου βγάζει Αριθμούς 1,2,3,4 γιατί;;;;
2ο Όπως θα δείτε και στο συνημμένο δεν μου ταξινομεί ολόκληρη την σειρά (κόκκινο χρώμα)
προσπάθησα να καταλάβω τον κώδικα αλλά...... οπότε η βοήθειά σας όπως πάντα αμέριστη και απεριόριστη.
Σας ευχαριστώ για τον χρόνο σας.