Userform; sort optionbuttons will update the list box but not the filter based on textbox

I have an userform with 3 options buttons, 1 list box and a textbox.

The first three subs work by sorting and the listbox just refreshes itself (rowsource is a range). However I can't find a way to make the fourth one to refresh the listbox, after a filter is applied. Oddly the sheet is actually filtered but the listbox doesn't update.

Private Sub OptionButton1_Click()
If Sheets("FamiliesKits").AutoFilterMode Then Sheets("FamiliesKits").ShowAllData
Range("ProductFamilies").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xYes
End Sub

Private Sub OptionButton2_Click()
If Sheets("FamiliesKits").AutoFilterMode Then Sheets("FamiliesKits").ShowAllData
Range("ProductFamilies").Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xYes
End Sub

Private Sub OptionButton3_Click()
If Sheets("FamiliesKits").AutoFilterMode Then Sheets("FamiliesKits").ShowAllData
Range("ProductFamilies").Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xYes
End Sub


Private Sub TextBox1_AfterUpdate()
If Sheets("FamiliesKits").AutoFilterMode Then Sheets("FamiliesKits").ShowAllData
Range("ProductFamilies").AutoFilter Field:=14, Criteria1:="*" & [TextBox1] & "*"

The Column/field #14 is a calculated one that concatenates the first 13. "=CONCAT(ProductFamilies[@[Code]:[AltLt]] & " ")".

I also made sure that the listbox columnscount is set to 14.

TIA.