a a xem code này e toàn bị báo lỗi mà k biết sai ở đâu ạSub Luu_Dulieu()With

a ơi a xem code này e toàn bị báo lỗi mà k biết sai ở đâu ạ

Sub Luu_Dulieu()

With Application.FileDialog(msoFileDialogFilePicker)

        .AllowMultiSelect = True

        .Show

Dim i As Integer

    For i = 1 To .SelectedItems.Count

Dim wb_KQ As Workbook

Dim wb_1 As Workbook

    Set wb_KQ = ThisWorkbook

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

 'XD dong cuoi

 Dim DongCuoi_KQ As Long

 DongCuoi_KQ = wb_KQ.Sheets("TH").Range("A" & Rows.Count).End(xlUp).Row

 'XD khoang cach

 Dim Dongdau_CT As Long

       Dongdau_CT = 3

 Dim Dongcuoi_CT As Long

       Dongcuoi_CT = wb_1.Sheets("1").Range("A" & Rows.Count).End(xlUp).Row

 Dim Khoangcach As Long

        Khoangcach = Dongcuoi_CT - Dongdau_CT + 1

'Luu du lieu

wb_KQ.Sheets("TH").Range("A" & DongCuoi_KQ + 1 & ":M" & DongCuoi_KQ + Khoangcach).Value = wb_1.Sheets("1").Range("A" & Dongdau_CT & ":M " & Dongcuoi_CT).Value

' Dong file noi dung

wb_1.Close Savechanges:=False

Next i

End With

End Sub