Generar TXT excel

[jezeer]

Tengo esta macro de excel que genera un txt dependiendo de las columnas y filas seleccionadas, el problema es que sigue sacando pipe | hasta el ultimo seleccionado el caso es que se debe detener antes de la ultima columna. ejemplo

a|b|c| asi lo hace

a|b|c lo optimo

¿Alguna idea?

Sub GeneraTxt()
Dim MiRango As Range, Largo As Integer, FilaActual As Long
On Error Resume Next
Set MiRango = Application.InputBox("Seleccione rango a exportar al TXT", Type:=8)
On Error GoTo 0
If MiRango Is Nothing Then Exit Sub
Open ".\TEXTO.txt" For Output As #1
For Each celda In MiRango
If Largo <= Len(celda) Then Largo = 1 + Len(celda)
Next celda
FilaActual = MiRango.Cells(1).Row
For Each celda In MiRango
If FilaActual < celda.Row Then
FilaActual = celda.Row: Print #1, ""
End If
Print #1, CStr(celda); "|";
Next celda
Close #1
Set MiRango = Nothing
MsgBox "Archivo txt generado en ruta de la plantilla, verifique que los datos sean los correctos", vbOKOnly, "Txt generado"
End Sub