Query related to import text file with the help of VBA

Excel 

Why didn't you mention that at the beginning? It was not apparent from your screenshot.

Public Sub ImportTextFile()
    Dim TargetSheet As Worksheet
    Dim NewRow As Long
    Dim TextFile As Workbook
    Dim OpenFiles() As Variant
    Dim i As Integer
    Dim n As Long
    Set TargetSheet = ThisWorkbook.Worksheets.Add ' or ActiveSheet
    NewRow = 1
    OpenFiles = GetFiles()
    Application.ScreenUpdating = False
    For i = 1 To UBound(OpenFiles)
        Set TextFile = Workbooks.Open(OpenFiles(i))
        With TextFile.Sheets(1).Range("A1").CurrentRegion.Offset(n)
            .Copy Destination:=TargetSheet.Range("A" & NewRow)
            NewRow = NewRow + .Rows.Count - n
        End With
        If i = 1 Then n = 1
        TextFile.Close
    Next i
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

Public Function GetFiles() As Variant
    GetFiles = Application.GetOpenFilename(Title:="Select File(s) to Import", MultiSelect:=True)
End Function