Сохранение измененных найденных данных на листе xl - VB

Формулировка задачи:

Мое почтение всем форумчанам! хотелось бы реализовать такой момент. :

                    Листинг программы
                
 
                        
                          
                    
'поиск данных на листе xl
Dim q As String, rx, R
q = Text5.Text
  If q = "" Then MsgBox ("Уточните критерии поиска!"), vbCritical, ("СООБЩЕНИЕ"): Exit Sub
Set rx = XL.Worksheets("BDK").Columns("A:A").Find(What:=q)
R = rx.row
  Text5.Text = XL.Worksheets("BDK").Cells(R, 1)  
 End If

И когда данные найдены эти данные хотелось бы измененные ПЕРЕЗАПИСАТЬ В ТУЖЕ СТРОКУ!

Решение задачи: «Сохранение измененных найденных данных на листе xl»

textual
                            Листинг программы 
                        
 
                        
                          
                    
q = Text5
  If q = "" Then MsgBox ("Уточните критерии поиска!"), vbCritical, ("СООБЩЕНИЕ"): Exit Sub
Set rx = XL.Worksheets("BD").Columns("A:A").Find(What:=q)
  If rx Is Nothing Then
    MsgBox "В списке (" & Text5 & ") строки нет!, Попробуйте изменить критерии поиска или его место!", 64, "СООБЩЕНИЕ"
  Else
If MsgBox("Искомые данные (" & Text5 & ") найдены! Показать данные?", vbYesNo, "СООБЩЕНИЕ!") = vbNo Then Exit Sub
 R = rx.row
Text5.Text = XL.Worksheets("BD").Cells(R, 1)  'ФИО
 
........
'я понимаю что этой же кнопкой перезаписать в те же ячейки,  те же данные (измененные) для перезаписи только дальше ступор и не понимаю что организовать с переменной "R"