Mình lưu thông tin trong ô userform vào sheet theo hướng dẫn nhưng không lưu được?

chào bạn bạn có thể đẩy file lên được không? trong file mô tả rõ hơn

Chào thầy

Mình nhờ thầy sửa giúp code sau đây, mục đích là để thêm mới 1 số CMND ở cột A của Sheet mà số này đã tồn tại thì thông báo bằng MsgBox, sau đó thoát.

Xin cảm ơn thầy

Private Sub bam_ThemMoiA1_Click()
Dim DongCuoi As Long
DongCuoi = DataKhachHang.Range("A" & Rows.Count).End(xlUp).Row
With DataKhachHang
.Range("A" & DongCuoi + 1).Value = Me.tb_SoCMNDA1.Value
.Range("B" & DongCuoi + 1).Value = Me.tb_HoTenA1.Value
.Range("C" & DongCuoi + 1).Value = Me.tb_NgaySinhA1.Value
.Range("D" & DongCuoi + 1).Value = Me.tb_DiaChiA1.Value
.Range("E" & DongCuoi + 1).Value = Me.tb_LoaiCMNDA1.Value
.Range("F" & DongCuoi + 1).Value = Me.tb_NgayCapCMNDA1.Value
.Range("G" & DongCuoi + 1).Value = Me.tb_NoiCapCMNDA1.Value
.Range("H" & DongCuoi + 1).Value = Me.tb_SoDTA1.Value
.Range("I" & DongCuoi + 1).Value = Me.tb_OngBaA1.Value
End With
MsgBox "Thank you"
End Sub

Bạn tham khảo
Sub timtrung()
Dim DongCuoi As Long, kieu As Integer
DongCuoi = DataKhachHang.Range("A" & Rows.Count).End(xlUp).Row
kieu = Application.WorksheetFunction.CountIf(DataKhachHang.Range("A1:A" & dc), Me.tb_SoCMNDA1.Value)
If kieu >= 1 Then
MsgBox "trung roi"
Exit Sub
Else
With DataKhachHang
.Range("A" & DongCuoi + 1).Value = Me.tb_SoCMNDA1.Value
.Range("B" & DongCuoi + 1).Value = Me.tb_HoTenA1.Value
.Range("C" & DongCuoi + 1).Value = Me.tb_NgaySinhA1.Value
.Range("D" & DongCuoi + 1).Value = Me.tb_DiaChiA1.Value
.Range("E" & DongCuoi + 1).Value = Me.tb_LoaiCMNDA1.Value
.Range("F" & DongCuoi + 1).Value = Me.tb_NgayCapCMNDA1.Value
.Range("G" & DongCuoi + 1).Value = Me.tb_NoiCapCMNDA1.Value
.Range("H" & DongCuoi + 1).Value = Me.tb_SoDTA1.Value
.Range("I" & DongCuoi + 1).Value = Me.tb_OngBaA1.Value
End With
End If
End Sub

Cảm ơn Thầy