Problema en la siguiente macro (junta archivos exel en uno solo)

Esta macro junta varios archivos del tipo .csv en uno solo archivo. El problema es que al terminar de juntar todos los archivos, al parecer sigue buscando mas archivos para juntar y me da un error.

Quiero saber si hay que agregar alguna instrucción más, y en el caso que necesite agregar mas funciones al término de éstas (por ejemplo fórmulas para realizar algún cálculo), en qué lineas debería agregarlas?

La macro es la siguiente:

Sub juntar()
Dim hoja As Object
Application.DisplayAlerts = False
mio = ActiveWorkbook.Name
ruta = ActiveWorkbook.Path
ChDir ruta & "\"
archi = Dir("*.csv*")
Do While archi <> mio
Workbooks.Open archi
otro = ActiveWorkbook.Name
For Each hoja In ActiveWorkbook.Sheets
hoja.Copy After:=Workbooks(mio).Sheets(Workbooks(mio).Sheets.Count)
Next
Workbooks(otro).Close False
archi = Dir()
Loop

Muchas Gracias!