Copiar datos de otros archivos xls a una hoja

Tengo un problema con Excel, a ver si me podéis ayudar. Supongo que
necesito una macro sencilla en visual Basic para Excel 2003 que
permita realizar la siguiente acción pero ando muy perdido en el tema
de programación :
Suponemos una carpeta con n archivos xls y de un archivo denominada
"Z_Data" quiero extraer los datos de los archivos mencionas de las
celdas A12:B19 y C12, tener en cuenta que los archivos en la carpeta
todos son diferentes.
En el archivo "Z_Data" estos datos extraidos quiero que se ingresen
horizontalmente a partir de C5 hasta K5 en filas por cada copia que
haga.
Los Archivos dentro de la carpeta se llaman 1.Report, 2.Report,
3Report.

Sub RepasarCarpeta()


Dim strArchivoExcel As String
Dim strNombreCarpeta As String


strNombreCarpeta = "C:/MisArchivosExcel"


ChDir strNombreCarpeta
strArchivoExcel = Dir("*.xls")


Do While strArchivoExcel <> ""
MsgBox strArchivoExcel
strArchivoExcel = Dir
Loop

End Sub

Sub RepasarCarpeta2()

Dim wb As Workbook
Dim strArchivoExcel As String
Dim strNombreCarpeta As String


strNombreCarpeta = "C:/MisArchivosExcel"


ChDir strNombreCarpeta
strArchivoExcel = Dir("*.xls")


Do While strArchivoExcel <> ""
Set wb = Workbooks.Open(strNombreCarpeta & "\" & strArchivoExcel)
MsgBox wb.ActiveSheet.Cells(1, 1)
MsgBox wb.Application.Sheets("Hoja2").Cells(2, 1).Value
wb.Close False
Set wb = Nothing
strArchivoExcel = Dir
Loop

End Sub

Este codigo me lo paso un amigo pero solo las habre y las repasa pero
no llena mi tabla.


Espero haberme explicado.
Gracias por vuestra ayuda.