Ayuda para salvar datos visible

Necesito de ti valiosa ayuda por favor ya que con el cogido que me ayudaste me sirvió mucho, pero ahora en la Columna A tengo unos datos concatenados y cuando crea el archivo .txt no se muestran los datos concatenados.

Sin mas que decir en lo particular y en espera de tan valiosa ayuda.

Sub SalvarTXTDatosVisibles()
''Creado por FSerrano ([email protected]) en 110627 para alvedys en TodoExpertos.com
''Guarda en formtato TXT las celdas visibles, supone que un filtro esta activado
'Captura la ubicación y el nombre del archivo actual, remueve la extensión del nombre del archivo actual
ActiveSheet.Unprotect "481231"
ActiveWorkbook.Unprotect "481231"
Application.ScreenUpdating = False
ruta = ActiveWorkbook.Path
nombre = Application.WorksheetFunction.Substitute(Application.WorksheetFunction _
.Substitute(ActiveWorkbook.Name, ".", "cutcortecut", Len(ActiveWorkbook.Name) _
- Len(Application.WorksheetFunction.Substitute(ActiveWorkbook.Name, ".", ""))), _
Mid(Application.WorksheetFunction.Substitute(ActiveWorkbook.Name, ".", "cutcortecut", _
Len(ActiveWorkbook.Name) - Len(Application.WorksheetFunction.Substitute _
(ActiveWorkbook.Name, ".", ""))), Application.WorksheetFunction.Find("cutcortecut", _
Application.WorksheetFunction.Substitute(ActiveWorkbook.Name, ".", "cutcortecut", _
Len(ActiveWorkbook.Name) - Len(Application.WorksheetFunction.Substitute(ActiveWorkbook.Name _
, ".", "")))), Len(Application.WorksheetFunction.Substitute(ActiveWorkbook.Name, _
".", "cutcortecut", Len(ActiveWorkbook.Name) - Len(Application.WorksheetFunction _
.Substitute(ActiveWorkbook.Name, ".", ""))))), "")
'Selecciona los datos contenidos en el rango visible
Range("A14:A" & ActiveCell.SpecialCells(xlLastCell).Row).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ChDir (ruta)
ActiveWorkbook.SaveAs Filename:=nombre & ".txt", _
FileFormat:=xlUnicodeText, CreateBackup:=False
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
ActiveSheet.Protect "481231" '*
ActiveWorkbook.Protect "481231" '*
End Sub