Necesito ayuda para exportar un excel a .TXT, por comas (,), que tiene un rango variable de columnas

Te mando mi solución con esta macro:

Sub proceso()
'por luismondelo
nombre = ActiveWorkbook.Name
nombre = Left(nombre, InStr(nombre, ".") - 1)
Open nombre & ".txt" For Output As #1
Range("a2").Select
Do While ActiveCell.Value <> ""
ubica = ActiveCell.Address
Do While ActiveCell.Column < 74
lista = lista & "," & ActiveCell.Value
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
End Sub

Al finalizar el proceso tendrás creado el archivo TXT con el mismo nombre del excel y con los datos separados por comas.

Recuerda finalizar