Mình đã viết code như thê này để lưu dữ liệu từ UF và bảng tính bấm

Mình đã viết code như thê này để lưu dữ liệu từ UF và bảng tính, bấm lưu không báo lỗi nhưng dữ liệu không được lưu

' Luu du lieu tu UF vao so

Private Sub cmb_Luu_Click()

' Tim dong cuoi

Dim DongCuoi As Long

DongCuoi = Sheet1.Range("A" & Rows.Count).End(xlUp).Row

'Luu vao tung cot

With Sheet1

.Range("A" & DongCuoi + 1).Value = Me.tb_SoDon.Value

.Range("B" & DongCuoi + 1).Value = Me.tb_NgayNhan.Value

.Range("C" & DongCuoi + 1).Value = Me.tb_HoTenNKK.Value

.Range("D" & DongCuoi + 1).Value = Me.tb_NgaySinhNKK.Value

.Range("E" & DongCuoi + 1).Value = Me.tb_DiaChiNKK.Value

.Range("G" & DongCuoi + 1).Value = Me.tb_HoTenNKK.Value

.Range("H" & DongCuoi + 1).Value = Me.tb_NgaySinhNKK.Value

.Range("I" & DongCuoi + 1).Value = Me.tb_DiaChiNKK.Value

.Range("K" & DongCuoi + 1).Value = Me.cb_QHTC.Value

.Range("L" & DongCuoi + 1).Value = Me.tb_NgayLamDon.Value

.Range("M" & DongCuoi + 1).Value = Me.tb_NDKhoiKien.Value

.Range("N" & DongCuoi + 1).Value = Me.tb_SLTaiLieu.Value

.Range("O" & DongCuoi + 1).Value = Me.tb_TaiLieuKemTheo.Value

End With

'Lam moi noi dung UF

Unload uf_NhanDon

uf_NhanDon.Show

End Sub