Sub ViaXMLDOM()
    Dim XMLDoc, Cell
    Set XMLDoc = CreateObject("Microsoft.XMLDOM")
    With XMLDoc.appendchild(XMLDoc.createElement("Signals"))
        For Each Cell In Range("A2:A65536")
            If Cell.Value = "" Then Exit For
            With .appendchild(XMLDoc.createElement("Signal"))
                .setAttribute "Name", Cells(Cell.Row, 1).Value
                .setAttribute "Type", Cells(Cell.Row, 3).Value
                With .appendchild(XMLDoc.createElement("Properties"))
                    With .appendchild(XMLDoc.createElement("Property"))
                        .setAttribute "Name", "Description"
                        .setAttribute "Type", "String"
                        .setAttribute "Value", Cells(Cell.Row, 2).Value
                    End With
                    With .appendchild(XMLDoc.createElement("Property"))
                        .setAttribute "Name", "Address"
                        .setAttribute "Type", "UInt"
                        .setAttribute "Value", Cells(Cell.Row, 4).Value
                    End With
                    If Cells(Cell.Row, 5).Value <> Empty Then
                        With .appendchild(XMLDoc.createElement("Property"))
                        .setAttribute "Name", "BitPosition"
                        .setAttribute "Type", "Byte"
                        .setAttribute "Value", Cells(Cell.Row, 5).Value
                        End With
                    End If
                End With
            End With
        Next
    End With
    XMLDoc.Save ThisWorkbook.Path & "\config.xml"
    Set XMLDoc = Nothing
    MsgBox "Saved to " & ThisWorkbook.Path & "\config.xml"
End Sub

Sub HandyCraft()
    Dim Cell, XMLText
    XMLText = "<Signals>" & vbCrLf
    For Each Cell In Range("A2:A65536")
        If Cell.Value = "" Then Exit For
        XMLText = XMLText & vbTab & "<Signal Name=""" & Cells(Cell.Row, 1).Value & """ Type=""" & Cells(Cell.Row, 3).Value & """>" & vbCrLf & vbTab & vbTab & "<Properties>" & vbCrLf
        XMLText = XMLText & vbTab & vbTab & vbTab & "<Property Name=""Description"" Type=""String"" Value=""" & Cells(Cell.Row, 2).Value & """ />" & vbCrLf
        XMLText = XMLText & vbTab & vbTab & vbTab & "<Property Name=""Address"" Type=""UInt"" Value=""" & Cells(Cell.Row, 4).Value & """ />" & vbCrLf
        If Cells(Cell.Row, 5).Value <> Empty Then XMLText = XMLText & vbTab & vbTab & vbTab & "<Property Name=""BitPosition"" Type=""Byte"" Value=""" & Cells(Cell.Row, 5).Value & """ />" & vbCrLf
        XMLText = XMLText & vbTab & vbTab & "</Properties>" & vbCrLf & vbTab & "</Signal>" & vbCrLf
    Next
    XMLText = XMLText & "</Signals>" & vbCrLf
    With CreateObject("Scripting.FileSystemObject").CreateTextFile(ThisWorkbook.Path & "\config.xml", True)
        .Write (XMLText)
        .Close
    End With
    MsgBox "Saved to " & ThisWorkbook.Path & "\config.xml"
End Sub