Macro con condicionante

Hola experto saludos quiero pedirte que me ayudes por favor a agregar una condicionante al código de la macro que te escribo la cual esta programada para que cada vez que yo alimento numéricamente una base de datos que se encuentra en la hoja1 en el rango a7:f7 me vaya almacenando los valores en la hoja2. Lo que yo necesito es simplemente agregar la siguiente condición: Si el valor de la celda A1 es igual a 1, almacena los datos en la hoja2, si el valor de la celda A1 es igual a 2, almacena los datos en la hoja 3, espero me puedas ayudar, gracias de antemano.
Sub mymacro()
Range("a7:f7").Copy
Sheets("hoja2").Select
Range("a65536").End(xlUp).Offset(1, 0).Select
ActiveCell.PasteSpecial xlPasteValues
Application.CutCopyMode = False
Range("A4").Select
Sheets("hoja1").Select
Range("a7:f7").ClearContents
Range("a7").Select
MsgBox ("Su registro ha sido guardado con exito")