kodu hem ilk yüklediğiniz haliyle hem de bu haliyle denedim pek fark göremedim
Not :referans eklenmiş.
kullanıdığım kod:

Private Sub UserForm_Initialize()



   Dim sonStr As Long

  

    With ThisWorkbook.Sheets("Ana_Sayfa")



        sonStr = .Cells(.Rows.Count, "c").End(xlUp).Row

        'hy____________________________AçılırKutu_Deneme

        Dim Sql As String

        Dim ADO_RS As ADODB.Recordset

        Dim ADO_CN As ADODB.Connection



        Sql = "SELECT [F1] " & _

              "FROM [Ana_Sayfa$C2:C" & sonStr & "] " & _

              "ORDER BY [F1];"



        Set ADO_RS = New ADODB.Recordset

        Set ADO_CN = New ADODB.Connection



        ADO_CN.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.FullName & _

                                  ";extended properties=""excel 8.0;hdr=No"""

        ADO_CN.Open

        ADO_RS.Open SQL, ADO_CN, 3, 1



        If ADO_RS.RecordCount = 0 Then GoTo son



        ADO_RS.MoveLast

        ADO_RS.MoveFirst



         ComboBox_FirmaUnvani.Column = ADO_RS.GetRows



son:

        ADO_RS.Close

        ADO_CN.Close

        Set ADO_RS = Nothing

        Set ADO_CN = Nothing

'hy_____________________________________________Bitti

    End With



    Application.AutoCorrect.AutoExpandListRange = True



    IlleriAktar

    TextBox_Tarih = Format(Date, "dd.mm.yyyy")



        With TextBox_Tarih

        .SelStart = 0

        .SelLength = .TextLength

        End With



End Sub

isterseniz

        ADO_RS.MoveLast

        ADO_RS.MoveFirst

satırları devre dışı bırakarak da deneyebilirsiniz ama dediğim gibi ben pek hız farkına rastlamadım

---

ama ilginçtir excelin kendi filtrelemesinde bile
Kocacam ve AKPEN yapı listenin en sonunda