Separar direcciones de números con comas

Te mando mi solución con esta macro:

Nos imaginamos que tenemos las direcciones en la columna A desde A1 hacia abajo.

Posiciónate en la primera dirección y ejecuta esta macro:

Te pondrá la solución en la columna anexa.

Sub proceso()
'por luismondelo
Do While ActiveCell.Value <> ""
tope = Len(ActiveCell)
For x = 1 To tope + 1
extrae = Mid(ActiveCell, x, 1)
If IsNumeric(extrae) And c <> 1 Then
c = 1
lista = Trim(lista) & ", " & extrae
GoTo salto
End If
lista = lista & extrae
salto:
Next
ActiveCell.Offset(0, 1).Value = lista
lista = ""
c = 0
ActiveCell.Offset(1, 0).Select
Loop
End Sub

recuerda finalizar la consulta