[VBA] Αντιγραφή με συνθήκες

[ΔΗΜΗΤΡΙΟΣ]

Θέλω από το φύλλο <OLA> να διαβάζει τα επώνυμα της στήλη Β και να κάνει το εξής:
Να ψάχνει στα φύλλα B1 ,B2 ,B3 ,B4 και όταν βρεί ίδιο επώνυμο με αυτό της στήλης Β του φύλλου <OLA> να πηγαίνει στην στήλη G του φύλλου <OLA> και να γράφει το όνομα του φύλλου που βρέθηκε το επώνυμο αυτό.
Αν πχ ψάχνουμε τον Βλαστό και ο Βλαστός βρεθεί στο φύλλο Β1 τότε στο αντίστοιχο κελί της στήλης G του φύλλου <OLA> να γραφει Β1 κτλ
Εχω κώδικα μέσα έκανα την διόρθωση ( νομίζω ) αλλά αργεί πάρα πολύ να δώσει αποτέλεσμα.

Μέχρι και το τρίτο if τα πάει σχετικά καλά

Υπάρχει τίποτα καλύτερο! με vba;

Ευχαριστώ πολύ !