Buscar un valor en una columna, copiar la información y pegarlo en una nueva hoja

Hola espero me puedan ayudar.

Necesito una macro que busque una valor(un nombre) y copie toda la xxx y lo copie en una nueva hoja.Por ejemplo busca a juan y copia su apellido, dirc, teléfono y lo pega en la hoja 2 después buscamos a luis y copia su apellido, dirc, teléfono en la hoja 3 y asi creando hojas por cada vez que seleccionamos una nombre

Gracias espero sus respuestas.