Copiar dato a otras hojas si cumple condición vba

Traigo lo siguiente quiero almacena en otras 3 hojas los datos que ingreso en la celda a2 de una hoja si cumple una condición.
Ejemplo si en la celda A1 dice 1 el dato que introduzca en la celda A2 se vaya a la hoja 2 y si dice 2 ese dato se vaya a la hoja 3 y así sucesivamente creando una base de datos. Tengo el siguiente código que solo lo hace a una sola hoja.
Agradezco sus valiosos consejos.
Sub proceso()
Sheets("Hoja1").Select
Range("A1"). Copy
Sheets("Hoja2"). Range("a65000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub