Dear all i want to connect together on the same sheet two different xls files. I am using the following code :

mypath = "C:\interfaces\"
destfile = "C:\interfaces\debitlist.xls"
srcfile = Dir(mypath & "*.xls")
Do While Len(srcfile) > 0
Open mypath & srcfile For Input As 1
filestr = Input(LOF(1), #1)
Close 1
Open destfile For Append As 1
Print #1, filestr
Close 1
srcfile = Dir
Loop

but i am getting the following error
INPUT PAST END OF FILE on the 6th line .
Does anybody knows how can i do it.

Thanks
marinosandria