Datos únicos de columna filtrada

hola, Jorge !

... extraer datos unicos de una columna filtrada para colocarlos en un ComboBox [...]

un ejemplo [suponiendo que el combo esta en un formulario]
-> modifica donde mis supuestos sean diferentes de la realidad <-
saludos,
hector.
en el modulo de codigo del formulario ==Private Sub UserForm_Initialize()
Dim Celda As Range, Listado As New Collection, Sig As Integer
For Each Celda In Range("a2:a39").SpecialCells(xlCellTypeVisible)
On Error Resume Next
Listado.Add Celda, CStr(Celda)
Next
ComboBox1.Clear
For Sig = 1 To Listado.Count
ComboBox1.AddItem Listado.Item(Sig)
Next
End Sub