¿Cómo hago para que yo ingrese un dato en un Inputbox y éste busque el dato e inserte una celda debajo?

Por ejemplo:

Si la Columna,

A tiene los datos:1, 2, 3, 4

B tiene los datos: 4, 5, 6, 7

Y yo ingrese en el Inputbox el Dato 2 que lo leerá sólo en la columna A

De como resultado

Columna

A: 1, 2, 2 ,3, 4

B: 4, 5, 5, 6, 7

*Osea insertar una fila debajo del dato del inputbox