Try the code below and see if it yields the desired results.
Enter folder path on code line 8.
Data from .txt files will be pasted in column A of the active sheet.
Dim MyFolder As String
Dim MyFile As String
Dim Filename As String
Dim cRow As Integer
MyFolder = "Folder path here"
MyFile = Dir(MyFolder & "\*.txt")
cRow = 2
Do While MyFile <> ""
Filename = MyFolder & "\" & MyFile
Open Filename For Input As #1
Do Until EOF(1)
Line Input #1, textline
If textline <> vbNullString Then
ActiveSheet.Range("A" & cRow).Value = textline
cRow = cRow + 1
MyFile = Dir()
Monday, Tuesday and Thursday are usually the days I'll respond. Bear this in mind when awaiting a reply.