Закрепить строку

[powerking11]

Здравствуйте, гуру VBA !!!

Есть макрос (прикрепил)

В нем осуществляется поиск, находит строку ,выводит данные до 7 колонки

Как внести изменение в найденную строку?

То есть например:
нашло 5 строку , вывело её значения, мне нужно ввести данные именно в найденную строку в 8,9,10 колонки из textbox8 ,textbox9 ,textbox10 соответственно.

При нажатии на кнопку данные должны ввестись в колонки 8,9,10 в найденную строку
ПОМОГИТЕ))

Private Sub CommandButton1_Click()
With Application
 .ScreenUpdating = False
 .DisplayAlerts = False
 .EnableEvents = False
End With

' открываем общий файл
Dim wbBook As Workbook
On Error Resume Next
Set wbBook = Workbooks("журнал.xls")
If wbBook Is Nothing Then
Workbooks.Open Filename:="C:\Users\SavitskiyKG\Desktop\журнал/xls"
Else
End If
' осуществляем поиск по номеру заказа (первый сторбец)
Dim cell As Range
     Set cell = Columns(1).find(What:=TextBox1, LookIn:=xlValues, LookAt:=xlWhole)
       If cell Is Nothing Then
       response = MsgBox("Ничего не найдено!" & vbNewLine & "Продолжить поиск?", vbYesNo)
       If response = vbNo Then
       Range("A1").Select
    Unload Me
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("список").Select
UserForm1.Show
       End If
         Else
        cell.Activate         ' выделяем найденную ячейку
    End If
' определяем активность кнопки
' выделяем диапазон от активной ячейки
Dim X As String
X = ActiveCell.Offset(0, 22)
If X <> 0 Then
ActiveCell.Range(Cells(1, 2), Cells(X, 17)).Select
End If
' ставим курсов в текст бокс
TextBox1.SetFocus
' данные для формы
TextBox2.Text = ActiveCell.Offset(, 1).Text
TextBox3.Text = ActiveCell.Offset(, 2).Text
TextBox4.Text = ActiveCell.Offset(, 3).Text
TextBox5.Text = ActiveCell.Offset(, 4).Text
TextBox6.Text = ActiveCell.Offset(, 5).Text
TextBox7.Text = ActiveCell.Offset(, 6).Text
TextBox8.Text = ActiveCell.Offset(, 7).Text
TextBox1.SetFocus
With Application
        .Calculation = xlCalculationAutomatic
        .DisplayAlerts = True
        .ScreenUpdating = True
        .EnableEvents = True
        .StatusBar = False
End With

End Sub

[IgorGO]

cells(cell.row, 8) = textbox8
cells(cell.row, 9) = textbox9
cells(cell.row, 10) = textbox10