Necesito crear una macro para extraer info de una BD general a otras otras hojas..

Necesito ayuda urgente con una macro potente para extraer de una BD general que tiene aprox 100 campos (columnas) y llevarlos a hojas (familias).

La idea es la siguiente:

BD General (los datos (filas) son variables al igual que las columnas (campos), pueden aumentar en cierto momento)

COL1 COL2 COL3 COL4 COL5 COL6 COL7

1 1 1 1 1 1 1

2 2 2 2 2 2 2

3 3 3 3 3 3 3

n n n n n n n

HOJA 1 (Familia 1) - HOJA N (Familia N)

COL1 COL4 COL6 COL7
1 1 1 1
2 2 2 2
3 3 3 3
n n n n

La macro debe ir al título de la HOJA 1 (COL1) en este caso, copiar ese título, y devolverse a la BD General y empezar a recorrer los títulos y copiar todo el contenido de la columna que coincida con el nombre copiado, en este caso COL1, en la HOJA 1, COL1.. Y así sucesivamente con todos los títulos de cada HOJA hasta llegar a la HOJA N. La idea es extraer los datos de cada columna en cada hoja que requiera ese campo.

Espero haya sido claro con la solicitud.

Agradezco de antemano su amable y pronta colaboración.

Un feliz día