Arrange data from excel table in a new worksheet based on criteria

Then you can just use this code behind your combobox. Only thing you need to do, is scale your column widths.

Private Sub ComboBox1_Change()
 Dim i As Long
 With ListBox1
   .List = Sheets(1).ListObjects(1).DataBodyRange.Value
    For i = .ListCount - 1 To 0 Step -1
       If InStr(1, .List(i, 0), ComboBox1.Value, 1) = 0 Then .RemoveItem i
    Next
 End With
End Sub