Редактировать содержимое ListBox Нужна помощь!!!

[Pavel1155]

Есть форма в который при наведении на строку в ListBox данные уходят в поля для редактирования и по идеи после нажатия на кнопку "Изменит данные" должны меняться, но меняется только значение "телефон". Не могу понять что не так с кодом, вроде все аналогично сделано.

[Pavel1155]

Выглядит как то так, подскажите в чем ошибка

Dim KlientEdit As Range
Dim ShKlient As Worksheet
Dim KlientListObj As ListObject
Dim KlientListRow As ListRow

    Set ShKlient = ThisWorkbook.Worksheets("Клиенты")
    Set KlientListObj = ShKlient.ListObjects("fiz_klienty_tb")
           
    Set KlientEdit = KlientListObj.ListColumns.Item(1).Range.Find(Klienty.txt_nomer_klienta, LookAt:=xlWhole)
 
    If Not KlientEdit Is Nothing Then 'Если найден клиент
    KlientEdit.Cells(1, 2) = Me.txt_tel.Value
    KlientEdit.Cells(1, 3) = Me.txt_FIO.Value
    KlientEdit.Cells(1, 4) = Me.Combo_istochik.Value
    KlientEdit.Cells(1, 5) = Me.DTPadd.Value
End If