min min mình có thực hành gộp 3 bảng chấm ng của các bộ phận vào 1

Chào admin, admin cho mình hỏi, mình có thực hành gộp 3 bảng chấm công của các bộ phận vào 1 file chấm công chuẩn của Công ty. 

Tuy nhiên, sau khi chạy code VBA như hướng dẫn trong bài, màn hình báo lỗi số 9 như hình bên dưới. Mình có gửi kèm đoạn code, admin xem giúp mình nhé ạ.

Đoạn code:

Sub Copydulieu()

    'Tao thu muc mo file

    With Application.FileDialog(msoFileDialogFilePicker)

    .AllowMultiSelect = True 'Chon nhieu file cung luc

    .Show 'Hien cua so chon file

    'Xac dinh file nao duoc chon

        Dim i As Long

        For i = 1 To .SelectedItems.Count

        'Gan bien cho cac workbook

        Dim wb_ketqua As Workbook

        Dim wb_select As Workbook

            Set wb_ketqua = ThisWorkbook

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

    'Dua du lieu tu cac workbook khac

         'Xac dinh dong cuoi cua wbselect

         Dim DongCuoi_wbselect As Long

            DongCuoi_wbselect = wb_select.Sheets("Sheet1").Range("B" & Rows.Count).End(xlUp).Row

         'Xac dinh khoang cach so dong du lieu

            'Khoang cach = dongcuoi_wbselect - dongdau_wbselect

        Dim Dongdau_wbselect As Long

            Dongdau_wbselect = 11

        Dim Khoangcach_wbselect As Long

            Khoangcach_wbselect = DongCuoi_wbselect - Dongdau_wbselect + 1

        'Noi nhan

            'Tim dong cuoi cua noi nhan => la diem bat dau

            'Pham vi cua vung nhan = khoang cach

            Dim Dongcuoi_wbketqua As Long

                Dongcuoi_wbketqua = wb_ketqua.Sheets("Sheet1").Range("B" & Rows.Count).End(xlUp).Row

         'Dua du lieu vao

            Workbooks("wb_ketqua").Sheets("Sheet1").Range("B" & Dongcuoi_wbketqua + 1 & ":AG" & Dongcuoi_wbketqua + Khoangcach_wbselect).Value = _

            Workbooks("wb_select").Sheets("Sheet1").Range("B" & Dongdau_wbselect & ":AG" & DongCuoi_wbselect).Value

          'Dong wb lai

            wb_select.Close savechanges:=False

        Next i

    End With

End Sub

Lỗi..........................