Если бы я разбиралась в этом) Предложили этот макрос, но что-то пошло не так

Sub ExportToXML()

Dim MyMap As XmlMap
Dim MyElement As XmlElement
Dim Row As LongDim Col As Long
Dim Doc As DOMDocument
Dim XMLFileName As String

XMLFileName = "C:\ExportedData.xml" 'замените на путь и имя файла, куда вы хотите экспортировать файл XML

Set Doc = New DOMDocumentSet MyMap = Doc.CreateXmlMap(Empty, "MyMap")
Set MyElement = MyMap.RootElement.AddElement("MyData")

For Row = 2 To Cells(Rows.Count, 1).End(xlUp).Row 'цикл по строкам
Set MyElement = MyElement.AddElement("MyDataItem") 'добавляем элемент данных MyDataItem
For Col = 2 To Cells(1, Columns.Count).End(xlToLeft).Column 'цикл по столбцам
MyElement.AddAttribute Cells(1, Col).Value, Cells(Row, Col).Value 'добавляем атрибуты и значенияNext Col
Next Row

Doc.Save XMLFileName 'сохраняем файл XML

Set MyMap = NothingSet MyElement = NothingSet Doc = Nothing

End Sub