Ayuda 3 ComboBox ligados

Hola
Que tal ye me ayudaron con anterioridad para realizar 3 combobox ligados y funciona de maravilla. Ahora los que tengo planeado es realizar una búsqueda de información y me muestre ya sea en una celda o en un cuadro de texto el valor q le corresponde al dato q coincida con los combobox usados como filtro.

El problema que tengo es en el ultimo combobox. Ya q no respeta el filtro de los otros y me lista todo los datos de la columna. Por ejemplo Filtro por Fecha(15-21 ABRIL-2013),Estado(DF). El 3er combobox debería mostrar 3 elementos pero me muestra los 4 elementos como si no se tomara en cuenta el filtro del 1er combobox.

A B C D
FECHA ESTADO TIENDA Existencias
15-21 ABRIL-2013 DF FARMADEPOT 600
15-21 ABRIL-2013 TOLUCA BARAFARMA 100
15-21 ABRIL-2013 DF CONAFAR 200
15-21 ABRIL-2013 DF BARAFARMAX-TRA 300
22-28 ABRIL-2013 TOLUCA SANA SANA 100
22-28 ABRIL-2013 DF BARAFARMA X-TRA 350
22-28 ABRIL-2013 DF FARMADEPOT 490
22-28 ABRIL-2013 DF LEÓN ABARROTERO 134

este es código que tengo en mi hoja..

Private Sub Worksheet_Activate() ActiveSheet.ComboBox1.Clear Range("a1:a" & Range("a65000").End(xlUp).Row).Select Selection.AdvancedFilter , Action:=xlFilterCopy, copytorange:=Range("e1"), unique:=True Range("e2").Select
Do While ActiveCell.Value <> "" ActiveSheet.ComboBox1.AddItem ActiveCell ActiveCell.Offset(1, 0).Select Loop
Range("b1:b" & Range("b65000").End(xlUp).Row).Select Selection.AdvancedFilter , Action:=xlFilterCopy, copytorange:=Range("f1"), unique:=True Range("f2").Select ActiveSheet.Columns("e:f").EntireColumn.Clear
End Sub
Private Sub ComboBox1_Change()
ComboBox2.Clear valor = ComboBox1.Value Set busca = ActiveSheet.Range("a1:a100").Find(valor, LookIn:=xlValues, lookat:=xlWhole) If Not busca Is Nothing Then ubica = busca.Address Do If InStr(lista, busca.Offset(0, 1)) = 0 Then ComboBox2.AddItem busca.Offset(0, 1) End If lista = lista & busca.Offset(0, 1) Set busca = ActiveSheet.Range("a1:a100").FindNext(busca) Loop While Not busca Is Nothing And busca.Address <> ubica
End If End Sub
Private Sub ComboBox2_Change() ComboBox3.Clear TextBox1.Text = "" valor = ComboBox2.Value Set busca = ActiveSheet.Range("b1:b100").Find(valor, LookIn:=xlValues, lookat:=xlWhole) If Not busca Is Nothing Then ubica = busca.Address Do If InStr(lista, busca.Offset(0, 1)) = 0 Then ComboBox3.AddItem busca.Offset(0, 1) End If lista = lista & busca.Offset(0, 1) Set busca = ActiveSheet.Range("b1:b100").FindNext(busca) Loop While Not busca Is Nothing And busca.Address <> ubica
End If
End Sub

Espero ´puedas ayudarme