Archivo automatizado

Buenos días.
 A ver si me pueden ayudar en esta parte del proyecto. Necesitaría una macro que me archivara los documentos de cualquier tipo que se encuentran en una carpeta determinada.
 Me explico. 
Tengo una carpeta llamada TFB, esta contiene unas carpetas numeradas 1, 2, 3,.......
En TFB se alojan continuamente archivos exel, pdf, txt, jpg....  ejemplo:
1captura.txt este se tendría que archivarse automáticamente en la carpeta 1.
2pedido.xls este se tendria que archivarse automáticamente en la carpeta 2.
2incidencia.xls este se tendria que archivarse automáticamente en la carpeta 2.
2albaran.pdf este se tendria que archivarse automáticamente en la carpeta 2.
Por tanto, los archivos siempre están nombrados por el nº de la carpeta seguido de una palabra y la extensión correspondiente. 
¿Como podría hacer, que solo tocando un botón en un exel, los archivara?
Por cierto tengo exel 2003.
Un saludo.

Añade tu respuesta

Haz clic para o