Buscar datos en una tabla y pegarlo aclaración

Hola nuevamente elmatador te comento que la macro que me diste funciona bien, ahora estoy intentándolo adaptar a un formato que es mi prototipo, pero al parecer no funciona en la hoja porque debe ejecutarse automáticamente al terminar de introducir el código, me parece que debe de ser un evento he intentado adaptarlo pero no puedo, y el otro detalle es que se muestra cuando se transmite a la oja donde están los datos, un compañero me ha mostrado lo que ha avanzado pero no me dio detalles, el caso es que el al introducir su código automáticamente le impremen los datos sin que se muestre el proceso, solamente me dijo que utilizo un evento en la hoja, claro que también tubo ayuda ya que también estuvo investigando y preguntando en la red. Solamente me dio un ejemplo te doy el código o macro
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("b2").Value = ActiveCell.Value
Range("b3").Value = ActiveCell.Offset(0, 1).Value
Range("b4").Value = ActiveCell.Offset(0, 2).Value
Range("b5").Value = ActiveCell.Offset(0, 3).Value
End Sub
He notado que esto funciona al seleccionar una celda el detalle es como la convierto para que sea permanente y que los datos los jale de otra hoja, y no del mismo espero no estar abusando de usted, de antemano muchas gracias