Cambios en listbox multiselect , en la misma fila

Espero se encuentren bien, tengo un listbox que es multiselect, así como 2 combobox, que filtran la información en el listbox, lo que no me sale es que al seleccionar varias opciones, estas cambien igual

                                                 en el botón de guardar coloque lo siguiente:

Private Sub Image1_Click()
ActiveSheet.Range("$A$5:$J$2000").AutoFilter Field:=6, Criteria1:=Me.ComboBox1.Text
ActiveSheet.Range("$A$5:$J$2000").AutoFilter Field:=5, Criteria1:=Me.ComboBox2.Text

With ListBox1
For x = 0 To .ListCount - 1
If .Selected(x) = True Then
Range("F" & x + 5) = ComboBox3
End If
Next
End With
End Sub

Pero las modificaciones me la hace al solo al principio, no en donde debería