[GeorgeK]

Καλησπέρα Χρήστο

Θα πρέπει να βάλεις τον κώδικα στο Worksheet_SelectionChange event για να λειτουργήσει. Όχι σε ένα module.

Στο παράθυρο του κώδικα επέλεξε από τις αναπτυσσόμενες λίστες Worksheet στο αριστερό βελάκι και Selection Change στο δεξί.

Θα πρέπει:
1) όλα τα φύλα να έχουν την ίδια μορφή που έχει το φύλο 1 που έχει τον κώδικα. Δηλαδή η τρίτη γραμμή κενή και ο πίνακας με τα στοιχεία σου να ξεκινάει από τη γραμμή 4.
2) να ονομάσεις τον πίνακα με τα δεδομένα σου range1 όπως το έχω βάλει. Αν δε θες να τον ονομάσεις, πρέπει να ορίσεις εσύ την περιοχή ταξινόμησης. Σε κάθε φύλο να έχεις διαφορετικό όνομα περιοχής range1, range2 κοκ
3) ο πίνακας σε όλα τα φύλα να έχει τις ίδιες διαστάσεις (μέχρι τη γραμμή 39)

Αν υπάρχει περίπτωση να αλλάξουν οι πίνακες δομή θα χρειαστεί κάτι πιο δυναμικό και ερχόμαστε σε αυτό που σωστά παρατήρησε ο Σπύρος. Τη δομή που θέλεις να έχεις

Για την ταξινόμηση στο πρώτο φύλο θα επανέρθω

Ελπίζω να σε βοήθησα
Γιώργος