Necesito que mi comboBox2 afecte a mi comboBox3, producto con respecto a preico, falla mi código

En el código se pretende que al seleccionar el com1 laboratorio, me despliegue las opciones del comb2 medicamento, hasta este punto funciona perfecto, el problema esta en haber seleccionado el medicamento necesito que aparezca (=) el precio ÚNICO de ese producto, quizá modificando el código para que me muestre el equivalente con respecto a la fila, pero no funciona, este es el código:

Private Sub UserForm_Activate()

For M = 3 To Cells(Rows.Count, 13).End(xlUp).Row
Presentacion.AddItem (Cells(M, 13))
Next M
uc = Cells(12, Columns.Count).End(xlToLeft).Column
For c = Columns("Y").Column To Cells(12, Columns.Count).End(xlToLeft).Column
If Cells(12, c) <> "" Then
Laboratorio.AddItem Cells(12, c)
End If
Next
uc = Cells(12, Columns.Count).End(xlToLeft).Column
For d = Columns("z").Column To Cells(12, Columns.Count).End(xlToLeft).Column
If Cells(12, d) <> "" Then
preciomedico.AddItem Cells(12, d)
End If
Next
End Sub
Private Sub Form_Load2()
Me.Caption = "Pasar datos de un Combo a otro"
Medicamento = "" Or Medicamento.ListIndex = -1
End Sub
Private Sub Medicamento_Change()

preciomedico.Clear
If Medicamento = "" Or Medicamento.ListIndex = -1 Then Exit Sub
uc = Cells(12, Columns.Count).End(xlToLeft).Column
Set d = Range("z13", Cells(12, uc)).Find(Medicamento, lookat:=xlWhole)
If Not d Is Nothing Then
For h = 13 To Cells(Rows.Count, d.Column).End(xlUp).Row
preciomedico.AddItem Cells(h, d.Column)
Next
End If
End Sub