Copia automatica da elenco a cella

Ciao a tutti e complimenti per il forum, lo trovo molto utile e soprattutto interessante.
Vi spiego brevemente quello che vorrei fare.

Nel mio foglio Excel ho la colonna "B" che contiene una serie di valori numerici, circa 42.000 righe.

E' possibile utilizzare qualche funzione in modo che il contenuto della cella, ad esempio "B50", venga automaticamente copiato nella cella "B2" semplicemente cliccandoci sopra? (cliccando sulla "B50" ovviamente)

Naturalmente la cella "B2" è appositamente vuota poiché il valore di volta in volta contenuto serve a svolgere la funzione finale.

Vi ringrazio per gli eventuali consigli.

ciao
copia questo codice
nel foglio interessato

---

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim rng As Range, cl As Range
Set rng = Range("B3:B10000")
For Each cl In rng.Cells
If Target.Address = cl.Address Then
Cells(2, 2) = Target.Value
Exit Sub
End If
Next
End Sub

---

https://www.dropbox.com/s/1e2dwaqml0h3qrj/al%20doppio%20click%20trasferisci%20valore%20cella.xlsm?dl=0

Grazie tante federico460. Funziona benissimo.