Macro para importar varios archivos xml en una misma hoja

Me podrías ayudar con una macro que hice mira lo que pasa es que esta macro importa archivos xml el detalles es que solo puedo hacerlo de 1 en 1 y quisiera saber si tu me podrías ayudar para que me abra varios archivos xml en una misma hoja. Esta es mi macro:

Sub uno()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Rows("2:1500").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Call dos
End Sub

Sub dos()
Dim Archivos, Fila
Application.DisplayAlerts = False
Application.ScreenUpdating = False

Fila = Range("A" & Rows.Count).End(xlUp).Row + 1
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Jaqui y Mcdiel"
.Filters.Clear
.Filters.Add "Archivos Xml", "*.xml*"
.AllowMultiSelect = True
.InitialFileName = ThisWorkbook.Path & "\"
If Not .Show Then Exit Sub
ruta = .SelectedItems(1)
diag = InStrRev(ruta, "\")
[A1] = (ruta)
Sheets("Datos").Select
ActiveWorkbook.XmlImport URL:=Range("A1"), ImportMap:=Nothing, Overwrite:=True, Destination:=Range("$A$2")
Range("E13").Select

End With
Call tres
End Sub
Sub tres()
Range("BG2:BL500").Select
Selection.Copy
Sheets("resumen").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G1").Select
Sheets("datos").Select
Range("CI1").Select
Application.CutCopyMode = False
MsgBox "En la hoja resumen esta el resultado."
End Sub