Como importar a excel varios archivos txt en una misma hoja

Tengo una serie de archivos en formato txt que quiero importar a una hoja de Excel, Luis Mondelo en una de sus publicaciones muestra un macro (que anexo) que me abre todos los archivos de una carpeta, pero pega cada documento en una nueva hoja, yo necesito que es que se vayan pegando debajo del archivo anterior y así sucesivamente... Por favor ayuda !

Sub abrir_txt()
On Error Resume Next
milibro = ActiveWorkbook.Name
Set navegador = CreateObject("shell.application")
carpeta = navegador.browseforfolder(0, "SELECCIONA CARPETA", 0, "c:\").items.Item.Path
ChDir carpeta & "\"
archi = Dir("*.txt")
Do While archi <> ""
Workbooks.OpenText archi, origin:=xlWindows, startrow:=1, DataType:=xlDelimited
otro = ActiveWorkbook.Name
ActiveSheet.Copy before:=Workbooks(milibro).Sheets(1)
Workbooks(otro).Close False
archi = Dir()
Loop
End Sub