Reemplazar datos de una fila.

Gracias desde ya, necesito realizar una consulta con una userform la cual :
1-. Buscar datos.
Textbox1= valor Cells.Find(What:=TextBox6, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Select
TextBox17 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox10 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox13 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox14 = ActiveCell
2.- Luego quiero cambiar un dato de estos
3.- Ingresarlo pero utilizando las mismas ubicaciones.
Es decir busco los datos de A : obtengo B, C y D. Cambio el valor D por D2 e ingreso los datos reemplazando por los nuevos. Resultado final : en la misma fila ingreso A, B, C y D2.
La verdad no tengo mucha experiencia en visual y todo lo que he aprendido es gracias a ustedes.
Gracias