chút là xong bị báo lỗi như này là đang sai ở đâu ạ

Chào bạn bạn đẩy file của bạn lên giúp gitiho nhé.

Thầy hướng dẫn giúp em, em k tìm được tool đẩy file lên ạ

https://gitiho.com/blog/huong-dan-upl... đây bạn nhé.

https://drive.google.com/file/d/1KIHK...
em gửi link ạ

Chào bạn bạn phải mở khoá sheet data ra trước nhé.

File tải về em k thấy có pass, thầy cho em hỏi pass này bên mình cung cấp ở đâu ạ?

Chào bạn trong code của bạn có pass =1 đó

Sub Luu_Du_Lieu()
    Dim DongCuoi As Long
        DongCuoi = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row
    'Sheet Data phai luon duoc mo khoa
    Sheets("Data").Unprotect Password:="1"
    'Xac dinh ket qua luu
    Sheets("Data").Range("A" & DongCuoi + 1).Value = Sheets("ThemMoi").Range("A3").Value    'Ten hang
    Sheets("Data").Range("B" & DongCuoi + 1).Value = Sheets("ThemMoi").Range("E3").Value    'DVT
    Sheets("Data").Range("C" & DongCuoi + 1).Value = Sheets("ThemMoi").Range("A6").Value    'So luong
    Sheets("Data").Range("D" & DongCuoi + 1).Value = Sheets("ThemMoi").Range("C6").Value    'don gia
    Sheets("Data").Range("E" & DongCuoi + 1).Value = Sheets("ThemMoi").Range("E6").Value    'thanh tien
    'Khoa sheet lai
    Sheets("Data").Protect Password:="1"
End Sub

Bạn sửa code lưu như sau 

Sub thuchanh()
'yeucau1: tim bien dong cuoi
Dim DongCuoi As Long
DongCuoi = Sheet2.Range("A" & Rows.Count).End(xlUp).Row
 Sheets("Data").Unprotect Password:="1"
'Yeucau2: luu du lieu tu sheet them moi sang sheet data
' O A3 luu cot A
Sheet2.Range("A" & DongCuoi + 1).Value = Sheet3.Range("A3").Value
' O E3 luu cot B
Sheet2.Range("B" & DongCuoi + 1).Value = Sheet3.Range("E3").Value
' O A6 luu cot C
Sheet2.Range("C" & DongCuoi + 1).Value = Sheet3.Range("A6").Value
' O C6 luu cot D
Sheet2.Range("D" & DongCuoi + 1).Value = Sheet3.Range("C6").Value
' O E6 luu cot E
Sheet2.Range("E" & DongCuoi + 1).Value = Sheet3.Range("E6").Value
'Xoa noi dung
Sheet3.Range("A3:C3").ClearContents
Sheet3.Range("A6").ClearContents
Sheets("Data").Protect Password:="1"
End Sub