Поместить в Комбобокс отфильтрованную колонку умной таблицы

Private Sub ComboBox1_Change()
Dim sh_x As Worksheet
Dim ListObj As ListObject
Set sh_x = ThisWorkbook.Worksheets("Лист1")
Set ListObj = sh_x.ListObjects("Таблица1")
ComboBox1.Clear
For i = 1 To ListObj.Range.Cells.Count
    Sheets("Лист1").ComboBox1.AddItem ListObj.Range.Cells(2, 1)(i)
Next
End Sub

Private Sub ComboBox1_Change()
    Dim sh_x As Worksheet
    Dim ListObj As ListObject
    Dim Mass() As String
    Set sh_x = ThisWorkbook.Worksheets("Лист1")
    Set ListObj = sh_x.ListObjects("Таблица1")
    ComboBox1.Clear
    ReDim Mass(1 To ListObj.Range.Cells.Count - 1) ' тут убирается значение "Фамилия" из комбобокса
    For i = 1 To ListObj.Range.Cells.Count - 1
        Mass(i) = ListObj.Range.Cells(2, 1)(i)
    Next i
    For i = 1 To UBound(Mass) - 1
        For j = i + 1 To UBound(Mass)
            If Mass(i) > Mass(j) Then
                Temp = Mass(j)
                Mass(j) = Mass(i)
                Mass(i) = Temp
            End If
        Next j
    Next i
    For i = 1 To UBound(Mass)
        Sheets("Лист1").ComboBox1.AddItem Mass(i)
    Next i
End Sub

Private Sub ComboBox1_Change()
    Dim TheRange As Range
    Dim i As Long
    Dim sh_x As Worksheet
    Dim ListObj As ListObject
    Set sh_x = ThisWorkbook.Worksheets("Лист1")
    Set ListObj = sh_x.ListObjects("Таблица1")
    ComboBox1.Clear
    ListObj.Sort.Apply
    On Error Resume Next
    For i = 1 To ListObj.Range.Cells.Count - 1
        Sheets("Лист1").ComboBox1.AddItem ListObj.Range.Cells(2, 1)(i)
    Next i
End Sub

Private Sub ComboBox1_DropButtonClick()
    Dim Mass() As String
    Dim i As Long
    Dim sh_x As Worksheet
    Dim ListObj As ListObject
    Set sh_x = ThisWorkbook.Worksheets("Лист1")
    Set ListObj = sh_x.ListObjects("Таблица1")
    ComboBox1.Clear
    ReDim Mass(1 To ListObj.Range.Cells.Count)
    For i = 1 To ListObj.Range.Cells.Count
        Mass(i) = ListObj.Range.Cells(2, 1)(i - 1)
    Next i
    ListObj.Sort.Apply
    On Error Resume Next
    For i = 1 To ListObj.Range.Cells.Count - 1
        Sheets("Лист1").ComboBox1.AddItem ListObj.Range.Cells(2, 1)(i)
    Next i
    For i = 1 To ListObj.Range.Cells.Count
        ListObj.Range.Cells(2, 1)(i - 1) = Mass(i)
    Next i
End Sub

Private Sub Test()
    Dim r As Range, a
    Set r = Range("Таблица1[Фамилия]")
    a = r.Value
    r.Sort r(0), xlAscending, Header:=xlYes
    ComboBox1.List = r.Value: r.Value = a
End Sub

Private Sub Test2()
    Dim r As Range, a
    Set r = Range("Таблица1")
    a = r.Value
    r.Sort r(0, 1), xlAscending, Header:=xlYes
    ComboBox1.List = r.Value: r.Value = a
    'ComboBox1.List = r.Columns(1).Value: r.Value = a
End Sub

Private b As Boolean
 
Private Sub ComboBox1_DropButtonClick()
    b = Not b: If Not b Then Exit Sub
    ...