Hi,

One way

Sub ParseTxtFile()
    Dim lcell As Long, x As Long, arCol, lstart As Long
    Dim stFname As String, stConn As String

    stFname = Application.GetOpenFilename

    With Sheet1.QueryTables.Add(Connection:= _
                                "TEXT;" & stFname, Destination:=Sheet1.Range("F1"))
        .Name = Sheet1.Name
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileCommaDelimiter = True
        .TextFileColumnDataTypes = Array(1)
        .Refresh BackgroundQuery:=False
    End With

    stFname = Right(stFname, Len(stFname) - InStrRev(stFname, "\"))
    stFname = Left(stFname, Len(stFname) - 4)
    Range(Range("F" & Rows.Count).End(xlUp), Range("F" & Rows.Count).End(xlUp).Offset(10, 0)) = "stop"

    arCol = Array(2, 1, 3, 4)
    lstart = Cells.Find(what:="Applicant*").Row + 5
    lcell = 1

    Do While Range("F" & lstart + 6) <> "stop"


        For x = 1 To 4
            Range("A1").Cells(lcell, arCol(x - 1)) = Range("F" & lstart + x - 1)

        Next x
        lcell = lcell + 1
        lstart = lstart + 6

    Loop
End Sub