[SOLVED] How to update selected item in a listbox using a combo box?

Hi,
I would like to update Col 6 from the selected row in my list box with a yes/no answer rom a combo box
Example attached.
My list box is populated by an array which I got elsewhere of this forum

Private Sub UserForm_Initialize()
Dim lr As Long
Dim arr As Variant
Dim arr2 As Variant
Dim mystring As String
Dim x As Integer

Sheets("Data").Select
lr = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row
arr = Range("A2", "H" & lr)
UserForm1.ListBox1.List = arr
End Sub