Datos excel a archivo txt sin espacios extras

[alexmonza]

Estimados tengo un archivo Excel que me genera mediante una macro un archivo txt con tabulaciones, pero mi problema es que al lado derecho salen espacios lo cual no se requieren y requiero eliminar.

Adjunto archivo para su ayuda y ver como funciona y que es lo que me falta para generar un archivo sin espacios extras y que me pida la ubicación donde guardar el archivo específicamente.

Este es el código de la macro, la cual primero crea una copia de la hoja y luego a partir de esa copia de hoja crea el archivo txt que se guarda en forma automática, pero a veces cambia la ubicación donde se guarda sin poder controlar eso, y además me deja unos espacios al lado del archivo txt que están demás para lo que necesito.

Sub COPIAR_HOJA_Y_CREAR_TXT()

Application.ScreenUpdating = False

nombre = "TXT_CON_ESPACIOS_A_LA_DERECHA"

Sheets("sige_actas_5").Select

Sheets("sige_actas_5").Copy

Application.DisplayAlerts = False

Range("O1").Select

Range(Selection, Selection.End(xlToRight)).Select

Range(Selection, Selection.End(xlDown)).Select

Selection.EntireColumn.Hidden = True

Range("L1").Select

ActiveWorkbook.SaveAs Filename:=nombre, FileFormat:=xlText, CreateBackup:=False

Application.DisplayAlerts = False

ActiveWindow.Close

Application.WindowState = xlMinimized

Application.WindowState = xlNormal

Range("A1").Select

Application.ScreenUpdating = True

MsgBox "Archivo 5 generado correctamente", 64, "Datos archivo 5"

End Sub

También aclaro que los datos pueden variar en la cantidad de filas.

Se adjunta archivo de excel 2010 de ejemplo, comprimido en winrar

Esperando su valiosa ayuda,

Alex

problema_txt_con_espacios_extras.rar