Función buscarv, copiar en grupo

Estimados amigos con la ayuda de ustedes pude hacer una macro con BUSCARV como se detalla:

'En un Módulo:

Sub Buscarv()

ActiveCell = Application.VLookup(ActiveCell.Offset(, -1), Sheets("Hoja1").Range("A1:B15"), 2, False)

End Sub

'En la hoja activa

Private Sub Worksheet_Change(ByVal Target As Range)

Celda = "A:A"

If Not Application.Intersect(Target, Range(Celda)) Is Nothing Then

ActiveCell.Offset(-1, 1).Select

Call Buscarv

End If

End Sub

En la hoja1 tengo la lista donde se extrae los datos y en la hoja2 en la celda coloco un nombre y me devuelve su equivalente de la tabla.

Esto me funciona a la perfección cuando se ingresa nombre por nombre, pero ahora estoy buscando un resultado cuando copie un nombre en varias filas de la columna y me aparezca en la columna del al lado su equivalente, pero de todo el grupo que copié

Gracias

Libro1.zip