Macro para copiar información en hoja

Necesito una macro que me copie todas las celdas B1 de todas las hojas de un libro, (Tengo más o menos 100 hojas), ahora bien donde me copie los valores de la celda B1, me los vaya copiando uno tras de otro, por ejemplo: Hoja1/CeldaB1 se copia en la Hojadecopiado/CeldaA1, Hoja2/CeldaB1 se copia en la Hojadecopiado/CeldaA2 y así sucesivamente. Todo debe ir a la hoja de copiado e ir pegado sucesivamente hacia abajo.