[Spirosgr]

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

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

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

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

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

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

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

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