Seleccionar Celdas y Copiar

Buenos dias,

tengo una hoja de calculo con 3600 datos, de los cuales faltan completar unos datos, por decir en el ejemplo que adjunto necesito copiar el contenido de la celda A3, en el rango A4 a A6, y luego el de A7 a A8 a A10, y asi hasta completar los datos, el detalle que son de varias hojas, por lo que quisera que al ejecutar la macro se copie , adjunto el ejemplo

dato2.xls