Macro para insertar datos en las celdas según valor definido.

En la (Hoja2) celda (A1), tengo una lista con números definidos; ejemplo 100, 101,102.

En la (Hoja1) celda (A1), me gustaría que al poner el numero clave; 001 en la columna (B10), apareciera los valores de la hoja2, ¿podemos hacer esto sin botones?