A vueltas con los filtros avanzados

... tiempo dandole vueltas a los filtros avanzados para rellenar un combobox con los registros unicos de un campo variable...
... el motivo de usar los filtros era ganarle en velocidad al proceso, que hasta ahora realizaba mediante un objeto collection...
... algo debo de estar haciendo mal, pues de momento, y tras probar unas cuantas posibilidades
... el uso del objeto collection es bastante mas rapido que los filtros.
... 5000 registros, con filtro avanzado tarda entre 6 y 10 segundos... con collection tarda un maximo de 2 segundos
... para hasta 20000 registros me podrian valer, pero me seguiria quedando la espina de los filtros avanzados y de en que estoy fallando [...]

.-Hoja1= "Listado": contiene la lista con los datos. Para las pruebas actuales 5000 registros.
El unico campo que no puede tener registros repetidos es ... columna A) y, a partir de... columna E), puede contener registros vacios.
.-Hoja2= "Matrices": contiene listas para rellenar matrices o variables.
La que interviene en los codigos es la columna A que contiene un listado con todas las letras de la A a la Z
que se corresponden con las columnas de Listado (26 en total)
.-Hoja3= "Oculta": se usa para pegar los datos filtrados y pasarlos al combo de destino.
.-ComboBox1= "cmbElegir": contiene los titulos de los 26 campos de "Listado" (rango "a1:z1"). Se cargan al inicializarse el formulario.
.-ComboBox2= "cmbCriterio": se rellena con los registros no repetidos del campo elegido en "cmbElegir"(cmbElegir_Change).
==>> Este es el codigo con collection:
Private Sub cmbElegir_Change()
Dim rngListado As Range, xList As Long
Dim ListaUnicos As New Collection
Application.ScreenUpdating = False
With cmbElegir
If .Value = .BoundValue Then Exit Sub
cmbCriterio.Clear: lstSeleccionar.Clear
If .ListIndex < 0 Then Exit Sub Else nL = .ListIndex + 1
End With
ltC = Worksheets("Matrices").Cells(nL, 1)
With Worksheets("Listado")
If .AutoFilterMode Then .AutoFilterMode = False
fF = .[a65536].End(xlUp).Row
.Range("a1:z" & fF).Sort _
key1:=.Range(ltC & "1"), _
header:=xlYes
For Each rngListado In .Range(ltC & "2:" & ltC & fF)
On Error Resume Next
If Trim(rngListado) <> "" Then _
ListaUnicos.Add rngListado, CStr(rngListado)
On Error GoTo 0
Next
End With
For xList = 1 To ListaUnicos.Count
cmbCriterio.AddItem ListaUnicos(xList)
Next
Set ListaUnicos = Nothing
Application.ScreenUpdating = True
End Sub

==>> y estos con advanced filter
->1 prueba
Private Sub cmbElegir_Change()
''Se filtra bien, pero mas bien lento _
'''(de 7 a 10 sg con 5000 filas)
Application.ScreenUpdating = False
With cmbElegir
If .Value = .BoundValue Then Exit Sub
cmbCriterio.Clear: lstSeleccionar.Clear
If .ListIndex < 0 Then Exit Sub Else nL = .ListIndex + 1
End With
ltC = Worksheets("Matrices").Cells(nL, 1)
With Worksheets("Oculta")
.UsedRange.EntireRow.Delete
With Worksheets("Listado")
If .AutoFilterMode Then .AutoFilterMode = False
fF = .[a65536].End(xlUp).Row
.Range("a1:z" & fF).Sort _
key1:=.Range(ltC & "1"), _
header:=xlYes
.Range(ltC & "1:" & ltC & fF).AdvancedFilter _
criteriarange:=.Range(ltC & "1:" & ltC & fF), _
Action:=xlFilterCopy, _
copytorange:=Worksheets("Oculta").Range("a1"), _
unique:=True
End With
fFo = .Range("a65536").End(xlUp).Row
If fFo < 2 Then Exit Sub
cmbCriterio.List = .Range("a2:a" & fFo).Value
End With
Application.ScreenUpdating = True
End Sub

->2 prueba (quizas ligeramente mas rapido que el anterior pero no estoy seguro
Private Sub cmbElegir_Change()
Application.ScreenUpdating = False
With cmbElegir
If .Value = .BoundValue Then Exit Sub
cmbCriterio.Clear: lstSeleccionar.Clear
If .ListIndex < 0 Then Exit Sub Else nL = .ListIndex + 1
End With
With Worksheets("Oculta")
.UsedRange.EntireRow.Delete
With Worksheets("Listado")
If .AutoFilterMode Then .AutoFilterMode = False
fF = .[a65536].End(xlUp).Row
.Range("a1:z" & fF).Sort _
key1:=.Cells(1, nL), _
header:=xlYes
.Range(.Cells(1, nL), .Cells(fF, nL)).AdvancedFilter _
criteriarange:=.Range(.Cells(1, nL), .Cells(fF, nL)), _
Action:=xlFilterCopy, _
copytorange:=Worksheets("Oculta").Range("a1"), _
unique:=True
End With
fFo = .Range("a65536").End(xlUp).Row
If fFo < 2 Then Exit Sub
cmbCriterio.List = .Range("a2:a" & fFo).Value
End With
Application.ScreenUpdating = True
End Sub

->3 prueba (como la 1ª pero usando algunas variables mas, tarda igual)
Private Sub cmbElegir_Change()
''Prueba con variables range y variant para ver si agiliza
'''pero sigue mas o menos igual
Dim rngListado As Range, rngFiltrado
Application.ScreenUpdating = False
With cmbElegir
' If .Value = .BoundValue Then Exit Sub
cmbCriterio.Clear: lstSeleccionar.Clear
If .ListIndex < 0 Then Exit Sub Else nL = .ListIndex + 1
End With
ltC = Worksheets("Matrices").Cells(nL, 1)
With Worksheets("Oculta")
.UsedRange.EntireRow.Delete
With Worksheets("Listado")
If .AutoFilterMode Then .AutoFilterMode = False
fF = .[a65536].End(xlUp).Row
.Range("a1:z" & fF).Sort _
key1:=.Range(ltC & "1"), _
header:=xlYes
Set rngListado = .Range(ltC & "1:" & ltC & fF)
rngListado.AdvancedFilter _
criteriarange:=rngListado, _
Action:=xlFilterCopy, _
copytorange:=Worksheets("Oculta").Range("a1"), _
unique:=True
End With
fFo = .Range("a65536").End(xlUp).Row
If fFo < 2 Then Exit Sub
rngFiltrado = .Range("a2:a" & fFo).Value
cmbCriterio.List = rngFiltrado
End With
Application.ScreenUpdating = True
End Sub

Bueno, como siempre me ha salido otro tomo.
Si podeis echarme una mano os lo agradezco.
En cualquier caso, un saludo y hasta pronto.
Ivan

... desde mi primera respuesta por que queria releerla y comprobar hasta que punto podia haberme precipitado.
... me reafirmo en todo lo dicho, a pesar de que tras correr bastantes pruebas, el resultado siga siendo el mismo:
(para 30000 registros decidi desistir por que se eternizaba (hasta 7 minutos con filtro av.)),
-> reducido el listado a 10000 registros, estos son los resultados hasta ahora para el campo mas lento:
-> con collection =>> 7 segundos aprox.
-> con advancedfilter =>> 40 segundos aprox.
es posible que se deba a que el listado lo he hecho arrastrando los 70 primeros registros (o sea, repitiendolos)
que si eran bastante variados (nº ficha, titulo, autor, etc), pero aun asi no deja de haber un alto nº de coincidencias totales?.
O quizas tenga que ver con mi pc, aunque en este caso supongo que tambien deberia afectar a collection [...]

1) me he 'construido' un libro con ~ 1000 'registros' en las columnas 'A a la Z' [+/- 260000 'datos'] <= NO FORMULAS <= OJO