Sửa code nút "lưu" để điền nội dung sau khi sửa đúng vị trí

[minhcong.tckt]

Em có 1 file cần hoàn thiện nút 'lưu" như sau:
1/ Bình thường tại sheet " dutoan" em chuột phải là ra bảng danh mục cần điền, khi thấy nội dung của "mã khách" bị sai em đã tạo ra nút " sửa", sửa lại và cho lưu thì mã bị sửa sẽ được điền đè đúng vị trí của nó ở sheet " DM_vattu"
2/ Nhưng em đã text thử, nếu dùng nút " tìm kiếm " mã khách rùi mới dùng nút 'sửa" để sửa nội dung " mã khách" thì khi ấn nút lưu, vị trí của mã khách sau khi sửa được điền lên hàng đầu của danh mục mã khách >>> sai,
Anh chị sửa giúp em lỗi này với ạ

 

[minhcong.tckt]

Nút "lưu" của em cần sửa ntn các anh chị, em thấy sau khi ấn nút "lưu" nó đè vào vị trí của "mã khách" khác, tạo ra 2 mã khách giống nhau, còn mã bị đè thì biến mất

Private Sub cmdSua_Click()
If MsgBox(" Ban co chac chan sua chung tu khong ?" & Chr(13) & "Yes de sua, No de huy bo", vbYesNo, "Thong bao!") = vbNo Then Exit Sub
    Dim iRow As Long, i As Long, MyCtrls()
    If OptionButton1.Value Then
        MyCtrls = Array(TBMaVV, TBTenVV)
        Range("DM_VT1").Offset(LB.ListIndex, 6).Resize(1).Value = MyCtrls
    Else
        MyCtrls = Array(TBMaVV, TBTenVV, TBMST)
        Range("DM_VT1").Offset(LB.ListIndex).Resize(1).Value = MyCtrls
    End If
    
    MsgBox "SUA DU LIEU XONG", vbExclamation, "THEO DOI DIEM"
  
   '''''them
   'MyControls = Array(tbxSoTT, tbxHoTen, cbxLop, tbxDiemToan, tbxDiemHoa, tbxDiemLy)
  
    'For i = 0 To 3
    '    MyCtrls(i).Text = ""
    'Next
    
End Sub

 

[minhcong.tckt]

em gửi anh chị nút "lưu" bị lỗi bằng hình ảnh ạ