macro copiar

Hola a todos-as. Tengo un libro1 con 40 hojas y dentro de cada hoja la casilla A1 que contiene un número. La tengo que copiar en otro hoja del mismo libro. Se puede automatizar esto con una macro? Pero sin que tenga que hacer las 39 ...