[Spirosgr]

Καλησπέρα
Πέτρο καλώς όρισες στην παρέα μας.
Δεν χρειάζεται Copy-Paste.
Αν υποθέσουμε ότι στην Α στήλη από A1 έως A2000 είναι λέξεις στα Αγγλικά
και στην Β στήλη από B1 έως B2000 είναι η περιοχή που θα βρίσκονται οι μεταφράσεις τους
τότε βάλε τον κώδικα:

Sub MyTranslation()
    Dim c As Range
    Application.ScreenUpdating = False
    For Each c In Range("A1:A2000")
        If c.Value = Range("D1").Value Then
            c(, 2).Value = Range("D2").Value
        End If
    Next c
End Sub

σε μία Module και σύνδεσέ τον σ' ένα κουμπί.
Βάλε στο D1 όποια Αγγλική λέξη θέλεις που περιέχεται στην περιοχή A1 έως A2000
Βάλε στο D2 την μετάφραση
Με το πάτημα του κουμπιού όλες οι επιλεγμένες λέξεις θα μεταφραστούν αυτόματα
Προσοχή στην ορθογραφία
Αν επιλέξουμε "house" και "Σπίτι" θα μεταφραστεί
αλλά δεν θα μεταφραστεί αν υπάρχει "House"
Αν η περιοχή μας έως το A2000 δεν φτάνει τότε άλλαξε το με A3000 για παράδειγμα
Όσο μεγαλώνει η περιοχή ελέγχου τόσο θα γίνεται ο κώδικας πιο αργός
Test για όλη τη Στήλη Α:Α περίπου 8 sec. για το 2010 excel