Macro para copiar rango de datos según una condición

Buenos Días Expertos:

Necesito saber una macro que haga lo siguiente:

Tengo un valor ingresado por el usuario en la celda D7 (Ej. 4567) en la Hoja 1, necesito que la macro busque ese valor en un rango de valores que están a lo largo de una sola fila (en este caso a partir de la columna H hasta la AAA sobre toda la fila 4, en la Hoja 2) y que compare si el valor insertado (4657) es igual a alguno de estos valores a lo largo de esa fila (H4:AAA4) entonces, tome un rango de datos que hay en la Hoja 1 (D19:D1113) y los pegue debajo del valor (4657) encontrado en la Hoja 2. Agradezco la ayuda de los expertos.

GRACIAS!