¿Cómo copiar archivos de Excel desde una hoja habilitada para habilitados a macros a otra?

Mis archivos están
divididos en 12 carpetas, quisiera extraer de cada una de ellas los datos que
se encuentran en las celdas, Código: X6, Nombre: E17, Cedula: Q17, Monto: H45, Teléfono:
R20, en la hoja Contrato
Las carpetas
se encuentran en este directorio D:\Joseph\2013\afiliaciones 2013
Sus nombre son
(1)Enero, (2)Febrero, (3)Marzo, (4)Abril, (5)Mayo, (6)Junio, (7)Julio, (8)Agosto,
(9)Septiembre, (10)Octubre, (11)Noviembre, (12)Diciembre
Quisiera que
fuera en una carpeta llamada listado.