Señores quien puede revisar esta macro

Señores como puedo modificar esta macro para que busque los archivos en una carpeta especifica

Sub juntar()
Dim hoja As Object
Application.DisplayAlerts = False
mio = ActiveWorkbook.Name
Str ruta = "C:\perfiluser\desktop\TRABAJO ANGELO.xls"
archi = Dir("*.xls*")
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
End Sub