em viết lệnh Gộp dữ liệu nhiều Ws vào 1 Ws dĩu liệu từ cột A đến cột

Sub GopDuLieu_TongQuat()   'Mo thu muc, chon nhieu file, gop 1 file

'Buoc 1: Tao thu muc mo file

With Application.FileDialog(msoFileDialogFilePicker)

        .AllowMultiSelect = True

        .Show

'Buoc 2: Xac dinh file nao duoc chon (bien i & vong lap For)

        Dim i As Long

        For i = 1 To .SelectedItems.Count

'Buoc 3: Gan bien cho cac Wb

        Dim wb_KQ As Long

        Dim wb_Select As Long

            Set wb_KQ = ThisWorkbook

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

'Buoc 4: Xac dinh DongCuoi_ Wb2,DongDau_Wb2, Khoang cach, DongCuoi Wb4

        'Dong cuoi cua WB2

        Dim DongCuoi_wb2 As Long

            DongCuoi_wb2 = wb_Select.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row

        'Xac dinh DongDau_Wb2, Khoang cach dong

        Dim DongDau_wb2 As Long

            DongDau_wb2 = 2

        Dim KhoangCach As Long

            KhoangCach = DongCuoi_wb2 - DongDau_wb2 + 1

        'Dong cuoi WB4 (Noi nhan du lieu)

        Dim DongCuoi_wb4 As Long

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

'Buoc 5: Dua du lieu tu cac Wb vao

wb_KQ.Sheets("Sheet1").Range("A" & DongCuoi_wb4 + 1 & ":F" & DongCuoi_wb4 + KhoangCach).Value = _

wb_Select.Sheets("Sheet1").Range("A" & DongDau_wb2 & ":F" & DongCuoi_wb2).Value

'Buoc 6: Dong cac Wb lai sau khi lay du lieu xong

wb_Select.Close SaveChanges:=False

        Next i

    End With

End Sub