Xin giúp lsửa ỗi khi chạy sub này

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

https://gitiho.com/blog/huong-dan-upl...

Đây ạ

https://drive.google.com/file/d/19O-T...

Chào bạn, bạn cho gitiho xin quyền truy cập nhé.

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

Vui lòng thử lại giúp ạ

Chào bạn lỗi xuất hiện ở đây là do hàm sau 

Private Sub UserForm_Initialize()
Dim ChonTenKhachHang As Object
Dim ChonTenHangHoa As Object
    Cb_NgayNhapLieu = Format(Now, "dd/mm/yyyy")
    For Each ChonTenKhachHang In KhachHang.Range("Ten_KhachHang")
        Cb_TenKhachHang.AddItem ChonTenKhachHang
    Next
    For Each ChonTenHangHoa In HangHoa.Range("Ten_HangHoa")
        Cb_TenHangHoa.AddItem ChonTenHangHoa
    Next
End Sub

Bạn sửa như sau nhé

Private Sub UserForm_Initialize()
    Dim dmkhachhang As Variant, dmhanghoa As Variant
    Cb_NgayNhapLieu = Format(Now, "dd/mm/yyyy")
    Dim dc As Long, dchanghoa As Long
    dc = khachhang.Range("G" & khachhang.Rows.Count).End(xlUp).Row
    If dc > 4 Then
        dmkhachhang = khachhang.Range("G4:G" & dc).Value
        Cb_TenKhachHang.List = dmkhachhang
    End If
    dchanghoa = hanghoa.Range("G" & hanghoa.Rows.Count).End(xlUp).Row
    If dchanghoa > 4 Then
        dmhanghoa = hanghoa.Range("G4:G" & dchanghoa).Value
        Cb_TenHangHoa.List = dmhanghoa
    End If
End Sub