Excel - IMPORTAR ARCHIVO TXT

Sres:

necesito su apoyo,tengo que abrir y copiar un archivo "ASIGNACION.TXT" en una hoja de excel alinearlo y ordenarlo para otros procesos.
este es el codigo que solo me copia el titulo mas no el archivo completo y tampoco me alinea el texto en columnas.

Sub leer_linea_de_un_fichero_de_texto()
On Error Resume Next
Application.ScreenUpdating = False
fichero_de_texto = "ASIGNACION.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
ruta = ActiveWorkbook.Path
Set archivo = fso.OpenTextFile(ruta & "" & fichero_de_texto, 1)
contenido = archivo.readline()
archivo.Close
'Limpiamos los objetos
Set fso = Nothing
Set archivo = Nothing
Range("A1") = contenido
'Mostramos el procedimiento
Application.ScreenUpdating = True
End Sub

Atte.

Tony