sao em dùng code như vầy chạy bình thường k báo lỗi nhưng nó k lưu Bài của

Thầy ơi, sao em dùng code như vầy chạy bình thường k báo lỗi nhưng nó k lưu. Bài của e như sau: em cần lưu noi dung bên file DEBIT sang file KHACHHANG và in PDF file DEBIT. 

https://drive.google.com/file/d/1u9gK...

Sub DEBIT_Save()

    'Tim dong cuoi Sheet KHACHHANG

    Dim DongCuoi As Long

    DongCuoi = Sheets("KHACHHANG").range("B" & Rows.Count).End(xlUp).Row

    'Tim dong cuoi co du lieu cua DEBIT

 Dim DongCuoi_Tenmathang As Long

  Dim DongCuoi_SoLuong As Long

    DongCuoi_Tenmathang = Sheets("DEBIT").range("C" & Rows.Count).End(xlUp).Row

    DongCuoi_usd = Sheets("DEBIT").range("F" & Rows.Count).End(xlUp).Row

    'Khai bao bien

    Dim sh_DEBIT As Worksheet

    Set sh_DEBIT = ThisWorkbook.Sheets("DEBIT")

    'Kiem tra loi truoc khi luu

    If Sheets("DEBIT").range("C12").Value = "" Then    'Loi chua nhap Ngay

        MsgBox "Chua nhap ETD"

        Exit Sub

    ElseIf DongCuoi_Tenmathang = 17 Then  'Chua co ma hang

        MsgBox "Khong co ma hang"

        Exit Sub

    ElseIf DongCuoi_usd = 17 Then 'Chua co usd

        MsgBox "Khong co usd"

        Exit Sub

        ElseIf Sheets("DEBIT").range("C15").Value = "" Then    'Loi chua nhap Ngay

        MsgBox "Chua nhap so BILL"

        Exit Sub

             ElseIf Sheets("DEBIT").range("C11").Value = "" Then    'Loi chua nhap Ngay

        MsgBox "Chua nhap ma KH"

        Exit Sub

             ElseIf Sheets("DEBIT").range("C13").Value = "" Then    'Loi chua nhap Ngay

        MsgBox "Chua nhap so POL"

        Exit Sub

             ElseIf Sheets("DEBIT").range("C14").Value = "" Then    'Loi chua nhap Ngay

        MsgBox "Chua nhap so POD"

        Exit Sub

    Else

        Application.Calculation = xlCalculationManual

        ' ' Luu vao bang ke phat sinh

        ' ' ' ' Bien vong lap

        Dim i As Integer

        For i = 17 To 24

             ' ' ' ' Luu du lieu khi co ma hang

            If Sheets("DEBIT").range("C" & i) <> "" Then

                With Sheets("KHACHHANG")

 .range("B" & DongCuoi + 1).Value = sh_DEBIT.range("C12").Value 'ETD

 .range("E" & DongCuoi + 1).Value = sh_DEBIT.range("C15").Value  ' BILL

 .range("F" & DongCuoi + 1).Value = sh_DEBIT.range("M3").Value   ' KH

 .range("C" & DongCuoi + 1).Value = sh_DEBIT.range("C13").Value  ' POL

 .range("D" & DongCuoi + 1).Value = sh_DEBIT.range("C14").Value   ' POD

 .range("G" & DongCuoi + 1).Value = sh_DEBIT.range("C" & i).Value   ' MATHANG

 .range("I" & DongCuoi + 1).Value = sh_DEBIT.range("E" & i).Value   'SL

 .range("H" & DongCuoi + 1).Value = sh_DEBIT.range("D" & i).Value   ' DV TINH

 .range("L" & DongCuoi + 1).Value = sh_DEBIT.range("H" & i).Value   ' RATE

 .range("O" & DongCuoi + 1).Value = sh_DEBIT.range("J" & i).Value   ' THUE

 .range("J" & DongCuoi + 1).Value = sh_DEBIT.range("F" & i).Value   ' USD

 .range("K" & DongCuoi + 1).Value = sh_DEBIT.range("G" & i).Value   ' VN?

                End With

                ' ' ' ' ' ' Dong cuoi se thay doi sau khi luu du lieu

                DongCuoi = DongCuoi + 1

            End If

        Next i

        'Thong bao khi luu thanh cong

        MsgBox "Luu thanh cong"

        Application.Calculation = xlCalculationAutomatic

    End If

End Sub