Import Few Txt Files From One Directory To One Sheet

My text files look like this(each has different number of rows):
2006-08-25 13:33:20 82,8 g
2006-08-25 13:34:10 58,5 g

between each column there is Tab

To import them from one directory (directories are named as month e.g. 8) I used:

Sub Consolidate()
Dim mnthNum As Integer
Dim myBook As Workbook
Dim myRows As Long

With Application
.DisplayAlerts = False
.EnableEvents = False
. ScreenUpdating = False
End With

and it works almost perfectly.. the problem is that each time it loads next file it overwrites the previous..

e.g. if i have in my directory 4 files and sum of the rows is 20 it will show only 17. The import is good because I checked it with debugger but each time a new file is copied it starts from last row of previous file.. that's the problem I can't solve...