Sub Gop_File() With ApplicationFileDig(msoFileDigFilePicker) AllowMultiSelect = True

Sub Gop_File()

    With Application.FileDialog(msoFileDialogFilePicker)

        .AllowMultiSelect = True

        .Show

        Dim i As Long

        For i = 1 To .SelectedItems.Count

        Dim wb_Select As Workbook

        Set wb_KQ = ThisWorkbook

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

        Sheets("KeKhaiDangKy").Activate

        Dim DongCuoi_Wb2 As Long

        DongCuoi_Wb2 = wb_Select.Sheets("KeKhaiDangKy").Range("A" & Rows.Count).End(xlUp).Row

        Dim DongDau_Wb2 As Long

        DongDau_Wb2 = 5

        Dim KhoangCach_wb2 As Long

        KhoangCach_wb2 = DongCuoi_Wb2 - DongDau_Wb2 + 1

        Dim DongCuoi_Wb4 As Long

        DongCuoi_Wb4 = wb_KQ.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row

        wb_Select.Sheets("KeKhaiDangKy").Range("A5:GC" & DongCuoi_Wb2).Copy

        wb_KQ.Sheets("Sheet1").Range("A" & DongCuoi_Wb4 + 1 & ":C" & DongCuoi_Wb4 + KhoangCach_wb2).Paste: 'Nho thay kiem tra giup

        wb_Select.Close SaveChanges:=False

        Next i

    End With

End Sub