Por favor necesito ayuda, es un xml que tiene 4 conceptos distintos y quiero descargar cada concepto en cada celda de excel perome marca error en la palabra cfdi y quisiera solucionarlo

es este error

le doy click en depurar y asi aparece

se los agradeceria mucho

No soy muy diestro en VBA pero por lo que veo en tu código, estás utilizando la variable x pero no la has declarado ni inicializado en ninguna parte. Asegúrate de declarar e inicializar x antes de usarla. Por ejemplo, puedes agregar Dim x As Integer al principio de tu subrutina para declarar x como un entero, y luego agregar x = 0 antes de tu bucle For Each para inicializar x en 0.

Además, intenta agregar el espacio de nombres al objeto MSXML2.DOMDocument60 antes de intentar seleccionar los nodos.

Por ejemplo algo así:

Private documentoxml As MSXML2.DOMDocument60
Private listanodos As MSXML2.IXMLDOMNodeList
Private nodo As MSXML2.IXMLDOMNode

Sub cargar()
Dim x As Integer
x = 0
Set documentoxml = New MSXML2.DOMDocument60
documentoxml.setProperty "SelectionNamespaces", "xmlns:cfdi='http://Aqui va tu URL'"
documentoxml.Load (ActiveCell.Value)
Set listanodos = documentoxml.SelectNodes("/cfdi:Comprobante/cfdi:Conceptos/cfdi:Concepto")
For Each nodo In listanodos
With ActiveCell
	.Offset(x, 1).Range("C1").Value = nodo.Attributes.getNamedItem("Descripcion").Text
End With
x = x + 1
Next nodo
End Sub

Espero te ayude un poco la sugerencia. Saludines