Public Sub ReadXML2()
    Dim XMLFileName As Variant
    Dim bool As Boolean: bool = True
    Dim XmlDom: Set XmlDom = CreateObject("microsoft.xmldom")
    For Each XMLFileName In Application.GetOpenFilename("XML files,*.xml", , "upload new xml", , True)
        XmlDom.Load XMLFileName
        With CreateObject("vbscript.regexp")
            .Pattern = "([</]{1,2})" & XmlDom.SelectNodes("//group")(0).ParentNode.nodeName & "([^>]*\>)"
            .Global = True
            ActiveWorkbook.XmlMaps("package_карта").ImportXml _
                IIf(.test(XmlDom.XML), .Replace(XmlDom.XML, "$1package$2"), XmlDom.XML), bool
        End With
        bool = False
    Next
    Set XmlDom = Nothing
    With Sheets("xml").ListObjects("Запрос")
        .Refresh
        .DataBodyRange.Copy
    End With
    With Sheets("Лист1").ListObjects("TBL")
        .HeaderRowRange(1).Offset([tbl].Rows.Count + _
            IIf(.DataBodyRange Is Nothing, 0, 1)). _
                PasteSpecial xlPasteValues
    End With
End Sub

Public Sub ReadXML2_1()
    Dim XMLFileName As Variant
    Dim bool As Boolean: bool = True
    Dim XmlDom: Set XmlDom = CreateObject("microsoft.xmldom")
    Dim Elem As Object, newElem As Object, ChildElem As Object
    For Each XMLFileName In Application.GetOpenFilename("XML files,*.xml", , "upload new xml", , True)
        XmlDom.Load XMLFileName
        Set Elem = XmlDom.SelectNodes("//group")(0).ParentNode
        If Elem.nodeName <> "package" Then
            Set newElem = XmlDom.createElement("package")
            For Each ChildElem In Elem.ChildNodes
                Call newElem.appendChild(ChildElem)
            Next
            Call Elem.ParentNode.replaceChild(newElem, Elem)
            Set Elem = Nothing: Set newElem = Nothing
        End If
        ActiveWorkbook.XmlMaps("package_карта").ImportXml XmlDom.XML, bool
        bool = False
    Next
    Set XmlDom = Nothing
    With Sheets("xml").ListObjects("Запрос")
        .Refresh
        .DataBodyRange.Copy
    End With
    With Sheets("Лист1").ListObjects("TBL")
        .HeaderRowRange(1).Offset([tbl].Rows.Count + _
            IIf(.DataBodyRange Is Nothing, 0, 1)). _
                PasteSpecial xlPasteValues
    End With
End Sub