Sub YML_For_Professional()
    On Error Resume Next
    xmlpath$ = ThisWorkbook.Path & "\Yandex-YML1251.xml"
    Set XML = CreateObject("Microsoft.XMLDOM")

    Dim ra As Range, cell As Range
    Set ra = Range([A2], Range("A" & Rows.Count).End(xlUp))    ' заполненные строки

    ' задаем кодировку для XML
    XML.AppendChild XML.createProcessingInstruction("xml", "version='1.0' encoding='utf-8'")
    XML.Save xmlpath$

    With XML.AppendChild(XML.createElement("pma_xml_export"))
        .Attributes.setNamedItem(XML.createAttribute("version")).Text = "1.0"
        XML.Save xmlpath$
        With .AppendChild(XML.createElement("databas"))
            .Attributes.setNamedItem(XML.createAttribute("name")).Text = "pachom"
            XML.Save xmlpath$
            ' добавляем дочерние узлы для каждой строки
            For Each cell In ra.Cells    ' перебираем все строки
                With .AppendChild(XML.createElement("table"))    ' создаём узел в XML
                    XML.Save xmlpath$
                    ' и добавляем в него значения
                    .Attributes.setNamedItem(XML.createAttribute("name")).Text = "mesp_phocagallery_categories_nev"
                    XML.Save xmlpath$
                    For i = 1 To 39    ' для каждого столбца
                        With .AppendChild(XML.createElement("column"))    ' к элементу column
                            ColumnName$ = Cells(1, i)    'дописываем атрибут name
                            XML.Save xmlpath$
                            .Attributes.setNamedItem(XML.createAttribute("name")).Text = ColumnName$
                            XML.Save xmlpath$
                            .Text = cell.EntireRow.Cells(i)    'и присваиваем значение
                            XML.Save xmlpath$
                        End With
                    Next
                End With
            Next cell
        End With
    End With

    XML.Save xmlpath$    ' сохраняем XML
End Sub