exportar datos de txt a excel con vb

[alberto_audi]

Hola buen dia

tengo algunas dudas de una macro que estoy creando. una base de datos me esta arrojando un txt
con la siguiente estructura
|hola|1|1|1|1|1|1|1|1|1|
|tu|1|1|1|1|1|1|1|1|1|
|no|1|1|1|1|1|1|1|1||
|beto|1|1|1|1|1|1|1|1|1|

Tengo una platilla en excel que me lee los datos y me arroja unos graficos.
lo que no puedo hacer en excel es lo siguiente
me esta pegando todoslos datos en una celda.
unicamente quiero los que esta dentro de las pipas(¶6¶) y cuando no tenga nada la pipa siga con la siguiente
ayuda muchas gracias

Les envio una macro que lo hace de un excel a otro excel
Sub Macro1()
'
' Macro1 Macro
' trae los libros e informaccion de la base
'
' Acceso directo: CTRL+a
Dim ruta As String

ruta = ThisWorkbook.Path


Workbooks.Open Filename:=(ruta & "\Encuesta_Reaccion_General.xls")
Range("C6:AW20000").Select
Selection.Copy
Windows("platillafinal.xls").Activate
Sheets("Datos").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("Calificación").Select
Application.CutCopyMode = False
Workbooks("Encuesta_Reaccion_General.xls").Close False
Application.CutCopyMode = False
UserForm1.Show
Kill ThisWorkbook.Path & "\Encuesta_Reaccion_General.xls"
Application.DisplayAlerts = False
Application.Quit
End Sub
muchas gracias