Macro para guardar txt delimitado por pipes

Mándame tu archivo excel con los datos de ejemplo para trabajar sobre él y ayudarte mejor

[email protected]

muchas gracias

ta te mande la info

Ya te he mandado la solución por mail y pongo aquí la macro

Sub proceso()
'por luismondelo
ruta = ActiveWorkbook.Path & "\"
Open ruta & "ejemplo.txt" For Output As #1
Range("a2").Select
Do While ActiveCell.Offset(0, 1).Value <> ""
ubica = ActiveCell.Address
Do While ActiveCell.Column < 75
If ActiveCell.Value <> "" Then
lista = lista & "|" & ActiveCell.Value
End If
ActiveCell.Offset(0, 1).Select
Loop
lista = Mid(lista, 2, Len(lista) - 1)
Print #1, lista
lista = ""
Range(ubica).Offset(1, 0).Select
Loop
Close #1
MsgBox "Se ha creado el txt en la ruta: " & ruta
End Sub

recuerda finalizar

muchas gracias solo una pregunta como le puedo hacer para que yo le pueda cambiar el nombre y la ruta de salida

funciona al 100

muchas gracias