Gởi giáo viên Trong phần bài tập chương; mục tổng hợp dữ liệu tiền lương

Gởi giáo viên: Trong phần bài tập chương; mục tổng hợp dữ liệu tiền lương từ các file tiền lương hàng tháng - sao đến đoạn code tìm dòng cuối của file nguồn thì VBA báo lỗi "run tiem '9' - subcript out of range nhờ GV giải thích và chỉnh dùm:

Sub chep_DL_tongquat()

        'mo thu muc chon fiel

    With Application.FileDialog(msoFileDialogFilePicker)

            .AllowMultiSelect = True

            .Show

        ' xac dinh file

                    Dim i As Long

                For i = 1 To .SelectedItems.Count

        'gan bien cho workbook

                    Dim wb_KQ As Workbook

                    Dim wb_select As Workbook

                    Set wb_KQ = ThisWorkbook

                    Set wb_select = Workbooks.Open(.SelectedItems(i))

                    Dim dongcuoi As Long

                    dongcuoi = wb_select.Sheets("sheet1").Range("D" & Rows.Count).End(xlUp).Row

                    Dim dongdau As Long

                    dongdau = 6

                    Dim khoangcach

                    khoangcach = dongcuoi - dongdau + 1

                      'ghep du lieu wb vao

                    Dim dongcuoi_wbkq As Long

                    dongcuoi_wbkq = wb_KQ.Sheets("data").Range("D" & Rows.Count).End(xlUp).Row  ' vị trí báo lỗi

                    wb_KQ.Sheets("data_tienluong").Range("A" & dongcuoi_wbkq + 1 & ":BM" & dongcuoi_wbkq + khoangcach).Value = _

                    wb_select.Sheets("sheet1").Range("A" & dongdau & ":BM" & dongcuoi).Value

                    wb_select.Close Savechanges:=False

            Next i

    End With

End Sub