Σπύρο καλησπέρα, έκανα τις αλλαγές που μου υπέδειξες όμως παραμένει το πρόβλημα, δηλαδή αν το πρώτο νούμερο ξεκινά από 0 δεν το βλέπει. Ανεβάζω ένα δείγμα,κοίτα το όνομα Θανάσης ΑΜ 012345 στο φύλλο 1-5.

Βασίλη πρόσεξέ με λίγο...

Στην αρχή, μιλάς για στήλες 1-6 (εγώ καταλαβαίνω A-F) ενώ εννοείς αυτές που εσύ
ονόμασες 1-6 δηλ U-Z που είναι 21-26.
Μετά
η αφετηρία ήταν κείμενο και οι προορισμοί General...
Όλα πανομοιότυπα μητρώα, εξαψήφια μορφής 123456
Γι' αυτό και χρησιμοποιήθηκε το Val...

Τώρα «άλλαξαν» τα πράγματα και έχεις και στους προορισμούς κείμενο...
και μητρώα και από μηδέν...

Ο κώδικας, δεν είναι απλό πράγμα, ούτε λύνεται δι' αλληλογραφίας αν δεν
έχουμε 100% σωστό ζητούμενο...
Για παράδειγμα, σε αντίθεση με τα μέχρι τώρα δεδομένα,
ανάμεσα στα ονόματα πας και μου βάζεις κι άλλα συγχωνευμένα, με κεφαλίδες
«Εργαζόμενοι»...

Οι κώδικες δεν χτίζονται έτσι...
ούτε θα μελετάω και θα αλλάζω την απάντηση συνέχεια, αφού αλλάζεις το ζητούμενο..

Τέλος άλλαξε αυτό

Dim iVL As String
iVL = Sheet5.Range("a" & i).Text

και μάλλον θα κάνεις την δουλειά σου, μέχρι εδώ και με αυτά τα δεδομένα ως τελικά.

Σπύρο καλησπέρα,

Το δοκίμασα σε πραγματικές συνθήκες εργασίας σήμερα και όλα δουλεύουν τέλεια , θέλω να σου πω ένα μεγάλο ευχαριστώ για όλα και ένα μεγάλο συγγνώμη που σε παίδεψα, να ‘σαι πάντα καλά.

Να 'σαι καλά Βασίλη και συγνώμη για τον εκνευρισμό που έδειξα...