Useform combobox dependiente, sin repetir datos

Hola Amigo,
Tengo una hoja columna A, B, C, D, con títulos, necesito que al
CÓDIGO UBICACIÓN FECHA CANTIDAD
BFDAC12 RACK1 10-10-2012 1
FGTED52 RACK2 11-10-2012 2
DFREW34 RACK3 12-10-2012 3
BFDAC12 RACK4 13-10-2012 4
DFREW34 RACK3 14-10-2012 1
FDAC12 RACK4 13-10-2012 2
DFREW34 RACK2 16-10-2012 3
EWRS67 RACK3 17-10-2012 4
BFDAC12 RACK1 18-10-2012 1
EWRS67 RACK3 19-10-2012 2
BFDAC12 RACK4 20-10-2012 3
EWRS67 RACK1 21-10-2012 4
BFDAC12 RACK1 22-10-2012 1
FGTED52 RACK5 23-10-2012 3
EWRS67 RACK3 24-10-2012 3
LOS DATOS ESTÁN EN UNA SOLA HOJA.
La idea es que si elijo en el COMBOBOX1 BFDAC12 en el COMBOBOX2 "ubicación" solo me muestre el Rack1 y rack4, una vez elegido Rack4 en el COMBOBOX3 "Fechas" solo me muestre las fechas
13-10-2012 , 13-10-2012 , 20-10-2012 y por ultimo si elijo la fecha 13-10-2012 solo me muestre en el COMBOBOX4 el stock 4 y 2, te comento esto porque tengo una macro de entrada y salida de producto, solamente cantidades y me gustaría incorporarle esta herramienta.
TODO ESTO ESTA DENTRO DE UN USERFORM.
Atento estaré de tu colaboración, un abrazo, Eduardo

Dim UltimaFila As Double
Private Sub C1_Click()
C2.Clear C3.Clear C4.Clear
For x = 2 To UltimaFila If ActiveSheet.Cells(x, 1) = C1.Text Then C2.AddItem ActiveSheet.Cells(x, 2) C3.AddItem ActiveSheet.Cells(x, 3) C4.AddItem ActiveSheet.Cells(x, 4) End If
Next x
End Sub
Private Sub C3_Click() C4.ListIndex = C3.ListIndex End Sub Private Sub SALIR_Click() Unload Me End Sub
Private Sub UserForm_Initialize()
ThisWorkbook.Worksheets("Hoja1").Activate UltimaFila = ActiveSheet.Cells(65536, 1).End(xlUp).Row
For x = 2 To UltimaFila C1.Text = ActiveSheet.Cells(x, 1) If C1.ListIndex = -1 Then C1.AddItem ActiveSheet.Cells(x, 1) Next x
C1.Text = "" C2.Clear C3.Clear C4.Clear
End Sub