Importa datos de txt a Excel

Esto es un ejemplo que me encontré para que lo adaptes.
Sub Leer_ArchivoAscii()
Dim strNombreArchivo, strRuta, strArchivoTexto As String
Dim f, i As Integer
Dim strTexto As String
'nombre y ruta del archivo de texto
strNombreArchivo = "MiArchivoAscii.txt"
strRuta = "C:\"
strArchivoTexto = strRuta & strNombreArchivo
'abrimos el archivo para lectura
f = FreeFile
Open strArchivoTexto For Input As #f
'leemos el archivo de texto a columna de Excel
i = 1
While Not EOF(f)
Line Input #f, strTexto
Cells(i, 1) = strTexto
i = i + 1
Wend
'cerramos el archivo de texto
Close f
End Sub

Hola amigo, en realidad no me ayuda por que no encuentro donde poner los campos que busco, ni donde los voy a ordenar

Hasta aquí te puedo ayudar porque no veo que tengas experiencia en programación VBA.