Excel - Generar TXT con Excel sin salto de linea al final

Sub Consulta01()

Range("c5:c104").Select

Dim NombreArchivo, rutaArchivo As String

NombreArchivo = Range("c1")

rutaArchivo = ActiveWorkbook.Path & "\" & NombreArchivo & ".txt"

Open (rutaArchivo) For Output As 1

captura:

Print #1, ActiveCell

ActiveCell.Offset(1, 0).Select

If ActiveCell = Empty Then GoTo cerrar

GoTo captura:

cerrar:

Close #1

Range("c1").Select

MsgBox "Archivo >>>" & NombreArchivo & "<<< Generado con Exito"

End Sub

Sub Consulta01()

    Range("c5:c104").Select

    Dim NombreArchivo, rutaArchivo As String, SW As Boolean

    NombreArchivo = Range("c1")

    rutaArchivo = ActiveWorkbook.Path & "\" & NombreArchivo & ".txt"

    Open (rutaArchivo) For Output As 1: SW = False

    While ActiveCell <> Empty

        If SW Then Print #1, ""  ' <-- El salto de linea lo hacemos de grabar los datos

                                 '  -- y a partir de la segunda línea

        Print #1, ActiveCell ;   ' <-- Aqui ponemos un Punto y Coma para que no añada Salto de Linea

        SW = True

        ActiveCell.Offset(1, 0).Select

    Wend

    Close #1

    Range("c1").Select

    MsgBox "Archivo >>>" & NombreArchivo & "<<< Generado con Exito"

End Sub