Private Sub LBDavam2_Click() 'заполняем TextBox'ы по выбранной записи в LBDavam2
Dim t As Integer
    For t = 0 To 4
    Me.Controls("TextBox" & (t + 4)).Text = LBDavam2.List(LBDavam2.ListIndex, t)
    Next t
End Sub
Private Sub CommandButton2_Click() 'кнопка Изменить
'записываем изменения из TextBox'ов в выбранную запись в LBDavam2
Dim z As Integer, arr(0 To 4) As String, rng As Range
For z = 0 To 4 'временный массив
    arr(z) = Me.Controls("TextBox" & (z + 4)).Text
Next z
'LBDavam2 изначально заполняется из RowSource = "Davamiyyat!A2:AA2500"
With Sheets("Davamiyyat")
Set rng = Range(.Cells(LBDavam2.ListIndex + 2, 1), .Cells(LBDavam2.ListIndex + 2, 5))
End With

rng.Value = arr
End Sub