Macro para copiar filas a otra hoja según condición

Necesito una macro que si en la hoja1 celda A1 pone 1 copié dos filas de la A2:b31 en la hoja2, si en A1 pone "2" lo copien el la hoja2 y así sucesivamente hasta "16"