Macro en Excel extraer de .txt y separar en hojas

Tengo que estraer un texto de un fichero txt y pegarlo en excel separado por columnas. La MACRO que he usado es la siguiente:

Sub ejemplo()
mio = ActiveWorkbook.Name
ruta = ActiveWorkbook.Path
ChDir ruta & "\"
archi = Dir("*.txt")
Do While archi <> ""
Workbooks.OpenText archi, origin:=xlWindows, startrow:=1, DataType:=xlDelimited
otro = ActiveWorkbook.Name
Range("a1:a" & Range("a65000").End(xlUp).Row).Copy
Workbooks(mio).Activate
Range("av1").End(xlToLeft).Offset(0, 1).Select
ActiveSheet.Paste
Workbooks(otro).Close False
archi = Dir()
Loop
ActiveSheet.Columns("a:a").EntireColumn.Delete
MsgBox "proceso terminado"
End Sub

Pero una vez que lo tengo en una columna necesito separarlo en columnas y eso lo se hacer. Lo que necesito es pegar en distintas hojas a partir de una palabra. Ejem:

ENTIDAD 1 :

0089098: 8: EUR : G08                                         

ENTIDAD 2 :

0089098: 8: EUR : G08                                                                           

0249098:  8:EUR :0408

ENTIDAD 3 :

0089098: 8: EUR : G08                                                                           

0249098:  8:EUR :0408

0089098: 8: EUR : G08                                                                           

0249098: 8:EUR :0408

Pegar ENTIDAD 1 en una hoja y ENTIDAD 2 en otra y ENTIDAD 3 en otra. Debajo de cada una hay diferentes numero de columna pero todas empiezan por entidad.

Se puede hacer con una MACRO