De Excel a txt

Tan solo tienes que darle guardar como... guardar como tipo.. texto unicode (*.txt) o texto (delimitado por tabulaciones)

No me sirve porque tengo las Columna A, B, C, DE, E, F, G cON INFORMACIÓN y la que quiero que se guarde en txt es desde la columna A hasta la F la G no la quiero en txt y no elimino la columna porque la necesito en la hoja de excel. Por otro lado la información queda separada y la necesito toda pegada sin espacio entre columna.

Usa esta macro tan solo cambia las celdas1 y 2 por las celdas donde empiezan y terminan tus datos.
Se guardara un txt con el nombre de la hoja y en su misma ubicación
Sub guardartxt()
    celda1 = "A2"
    celda2 = "E2"
    c1 = Range(celda1).Column
    c2 = Range(celda2).Column
    f1 = Range(celda1).Row
    f2 = Range(celda1).End(xlDown).Row
    ruta = ActiveWorkbook.Path
    fichero = ActiveWorkbook.Name
    fichero = Replace(fichero, ".xlsx", ".txt")
    fichero = Replace(fichero, ".xls", ".txt")
    Dim acum As String
    Dim mitexto As Integer
    mitexto = FreeFile
    Open ruta & "\" & fichero For Output As #mitexto
    While f1 <= f2
        While c1 <= c2
            acum = acum & Cells(f1, c1)
            c1 = c1 + 1
        Wend
        Print #mitexto, acum
        acum = ""
        c1 = Range(celda1).Column
        f1 = f1 + 1
    Wend
    Close #mitexto
End Sub

Algo me sale mal. Yo guardo el macro en un modulo pero le doy a ejecutar macro y se cuelga. Y si guardo como texto sigue guardando con separación de espacio.
Osea me queda así
02DB0 01160114630183123469 00000000000000000000000000 4000 260310 10422222
Y lo quiero es así
02DB001160114630183123469000000000000000000000000004000260310
Sin la ultima columna disculpame si molesto mucho pero no me sale el archivo o no entiendo como hacerlo