[VBA] Αντιστοιχία email σε ονόματα

[ataskin]

Καλησπέρα σας, θα ήθελα τη βοήθειά σας στο παρακάτω
Εχω ένα φύλλο με 10 στήλες. Στη στήλη H έχω πολλά ονόματα τα οποία επαναλαμβάνονται πχ. Γεωργίου, Βασιλείου, Δημητρίου, Γεωργίου, Βασιλείου, κτλ
Στη στήλη D έχω το email του καθενός γραμμένο μία φορά. Θέλω να συμπληρώνεται όλη στήλη Α με τα αντίστοιχα email του καθενός. Δηλαδή όπου η Στήλη Η
γράφει Γεωργίου να παίρνει το email του από τη στήλη D και να το γράφει στη στήλη A, όπου η Στήλη Η γράφει Δημητρίου να παίρνει το email από τη στήλη D και να το γράφει στη στήλη A.
Εννοείται πως κάθε φορά να μπορώ να προσθέσω καινούργια ονόματα και email.