Search Data using Combobox Textbox and Listbox

In the end I have given up on the listbox, I just couldn't figure out how to update it with just the filteredcells.
If anyone was interested my finished code was:

Private Sub Userform_Initialize()
TextBox3.Text = Format(Text, "AA00 0AA")
End Sub
Private Sub CommandButton6_Click()
Unload Me
Course.Show
End Sub

Private Sub CommandButton4_Click()
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=11
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=10
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=9
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=8
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=7
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=6
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=5
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=4
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=3
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=2
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=1
    nextrow = Cells.Find(What:="*", searchdirection:=xlPrevious, searchorder:=xlByRows).Row + 1
Cells(nextrow, 1).Select
    Unload Me
End Sub
Private Sub CommandButton5_Click()
Range("A2:N2000").SpecialCells(xlCellTypeVisible).Select
editenrol.Show
End Sub

Private Sub CommandButton7_Click()
    TextBox1.Value = ""
    TextBox2.Value = ""
    TextBox3.Value = ""
    TextBox5.Value = ""
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=11
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=10
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=9
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=8
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=7
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=6
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=5
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=4
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=3
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=2
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=1
    nextrow = Cells.Find(What:="*", searchdirection:=xlPrevious, searchorder:=xlByRows).Row + 1
Cells(nextrow, 1).Select
End Sub

Private Sub ListBox1_Click()
End Sub

Private Sub TextBox1_Change()
Range("C:C").AutoFilter Field:=3, Criteria1:=TextBox1.Value
End Sub

Private Sub TextBox2_Change()
Range("D:D").AutoFilter Field:=4, Criteria1:=TextBox2.Value
End Sub


Private Sub TextBox3_Change()
Range("F:F").AutoFilter Field:=6, Criteria1:=TextBox3.Value
End Sub

Private Sub TextBox5_Change()
Range("a:A").AutoFilter Field:=1, Criteria1:=TextBox5.Value
End Sub