pasar datos filtrados a un combobox

Hola a todos

Tengo una hoja con datos en 20 columnas,
Los de seis de ellas los quiero poner en combobox

Al combobox1 le paso los datos de la columna A una vez ordenados y
filtrados los únicos en la columna (ultimacolumna + 1) mediante estas
instrucciones

Matrizcontrato = Cells(2, ultimacolumna + 1).Resize(nextcontrato, 1)
Contrato.list=Matrizcontrato

Pasar los datos de las otras seis columnas no me causa tampoco problema
si paso todos los valores de la misma manera, pero lo que necesito es
que los valores que se pasen de la columna B al combobox2 no sean todos
los de dicha columna, sino solo aquellos que quedan una vez filtrado el
valor del combobox1 en la columna A mediante un autofiltro
El filtrado con el valor del combobox1 también me sale con estas
instrucciones

criteriocont = Contrato.Value (contrato es el combobox1)
Selection.AutoFilter Field:=1, Criteria1:=criteriocont




1 10 55
2 11 56
3 12 57
4 11 58
5 13 59
6 11 60

Suponiendo este ejemplo al combobox1 van 10, 11, 12 y 13 y si yo escojo
el valor 11 en el combobox2 solo debieran aparecer 56, 58 y 60

No se si he sido capaz de explicarme a pesar de tanta verborrea

Saludos
Javier B.