Tại sao thì dữ liệu copy vào file kết quả lại có thứ tự là bảng lương

Tại sao em làm thì dữ liệu copy vào file kết quả lại có thứ tự là bảng lương tháng 4 đầu tiên xong rồi đến các bảng lương tháng 1,2,3 ạ?
Đây là code của em ạ.

Sub nhap_du_lieu_luong_2()
'Cach 2: Su dung vong lap Do While
'Mo thu muc chua du lieu de nhap
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = True 'cho phep chon nhieu file
If .Show = -1 Then 'co thuc hien chon noi dung
Dim duongdan As String 'khai bao duong dan thu muc
duongdan = .SelectedItems(1) & "\"
Dim ten_file As String 'khai bao ten file
ten_file = "*BangLuong*.xls*" 'chon cac file co ten chua tu khoa "Bangluong" va duoi co chua xls
Dim file_duoc_chon As String
file_duoc_chon = Dir(duongdan & ten_file)

'Thuc hien vong lap Do while
Do While file_duoc_chon <> ""

Dim wb_kq As Workbook 'Gan bien wb_kq cho workbook ket qua
Dim wbi As Workbook 'Gan bien wbi cho workbook duoc chon
Set wb_kq = ThisWorkbook
Set wbi = Workbooks.Open(Filename:=duongdan & file_duoc_chon)

'Xac dinh dong cuoi cua workbook ket qua
Dim dongcuoi_kq As Long
dongcuoi_kq = wb_kq.Sheets("Data_Tienluong").Range("A" & Rows.Count).End(xlUp).Row

'Xac dinh dong dau cua workbook duoc chon
Dim dongdau_wbi As Long
dongdau_wbi = 8

'Xac dinh dong cuoi cua workbook duoc chon
Dim dongcuoi_wbi As Long
dongcuoi_wbi = wbi.Sheets(1).Range("F" & Rows.Count).End(xlUp).Row

'Xac dinh khoang cach cua workbook duoc chon
Dim khoangcach As Long
khoangcach = dongcuoi_wbi - dongdau_wbi + 1

'Copy du lieu tu workbook duoc chon vao workbook ket qua
'Kiem tra du lieu co bi trung khong
Dim test_trung As Integer
test_trung = WorksheetFunction.CountIfs(wb_kq.Sheets(2).Range("A6:A" & dongcuoi_kq), wbi.Sheets(1).Range("E2"), _
wb_kq.Sheets(2).Range("C6:C" & dongcuoi_kq), wbi.Sheets(1).Range("G2"))
If test_trung >= 1 Then
MsgBox "Du lieu bi trung"
Exit Sub
Else
wb_kq.Sheets("Data_Tienluong").Range("A" & dongcuoi_kq + 1 & ":BM" & dongcuoi_kq + khoangcach) = _
wbi.Sheets(1).Range("A" & dongdau_wbi & ":BM" & dongcuoi_wbi).Value
End If

'Dong workbook
wbi.Close savechanges:=False

'Xac dinh lai file khac duoc mo
file_duoc_chon = Dir

Loop

End If
End With

End Sub