
La macro toma el valor al seleccionar una celda dentro de un rango delimitado (B10:H15) y lo copia en otra celda (J7). Acudo a vuestro conocimiento porque no sé cómo lograr esto en lenguaje Basic

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B10:H15")) Is Nothing Then
Range("J7") = Target.Value
End If
End Sub
Podrían ofrecerme alguna alternativa a esta macro?
Gracias!!