Текстовое поле обновления определенных ячеек

Question

У меня есть 3 текстовых поля, которые я заполнил тремя разными столбцами, как только в поле со списком был выбран вариант.

Я пытаюсь сделать, чтобы у меня было два последних текстовых поля, в которые я бы в конечном итоге записал числа, и этоавтоматически обновляйте соответствующие ячейки.

 Private Sub ComboBox1_Change()
    Dim myRange As Range, f As Range

    Set myRange = Worksheets("Sheet2").Range("A2:B26")

    Set f = myRange.Find(What:=ComboBox1.Value, LookIn:=xlValues, Lookat:=xlWhole, MatchCase:=False) '<--| try and find combobox selected value
    If f Is Nothing Then
        TextBox1.Value = ""
    Else '<--| ... otherwise...
        TextBox1.Value = f.Offset(, 1)
        TextBox2.Value = f.Offset(, 2)
        TextBox3.Value = f.Offset(, 3)
    End If
End Sub

Проблема, с которой я сталкиваюсь, обновляет ячейку, которая относится к значению, введенному в поле со списком, и, таким образом, обновляет соответствующую ячейку в соответствующей строке. Код ниже очень прост, и мне интересно, если я должен сделать то же самое вручную. Первая часть кода заполняет три первых текстовых поля, вторая часть должна заполнять соответствующие ячейки значением, которое я вводю в зависимости от выбора в выпадающем списке. Пожалуйста, дайте мне знать, если я не достаточно ясно.

Private Sub OK_Click()
    Sheets("Sheet1").Range("C9") = TextBox4.value
    Sheets("Sheet1").Range("D9") = TextBox5.value
End Sub