Userforms Combobox dependiente datos únicos

Hola Amigos/as,
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 LISTA_Click() On Error Resume Next
Sheets("LISTADO").Select FECHA_VENCIMIENTO.Clear UNIDAD.Clear STOCK.Clear
For x = 5 To UltimaFila Do While Not IsEmpty(ActiveCell) If ActiveSheet.Cells(x, 1) = LISTA.Text Then FECHA_VENCIMIENTO.AddItem ActiveSheet.Cells(x, 7) UNIDAD.AddItem ActiveSheet.Cells(x, 3) STOCK.AddItem ActiveSheet.Cells(x, 4) End If Loop Next x
End Sub
Private Sub UNIDAD_Click() STOCK.ListIndex = UNIDAD.ListIndex End Sub Private Sub SALIR_Click() Unload Me End Sub
Private Sub UserForm_Initialize() On Error Resume Next Sheets("LISTADO").Select 'ThisWorkbook.Worksheets("Hoja1").Activate UltimaFila = ActiveSheet.Cells(65536, 1).End(xlUp).Row
For x = 5 To UltimaFila LISTA.Text = ActiveSheet.Cells(x, 1) If LISTA.ListIndex = -1 Then LISTA.AddItem ActiveSheet.Cells(x, 1) Next x 'FECHA_VENCIMIENTO = ActiveSheet.Cells(x, 7)
LISTA.Text = "" FECHA_VENCIMIENTO.Clear UNIDAD.Clear STOCK.Clear
End Sub