Combining VLOOKUP and MIN in VBA

[drewan]

Hello. I am using this code:

 DIF = (Target.Offset(, -1) - WorksheetFunction.VLookup(Target.Offset(, -2), Range("A:B"), 2, 0))

If there is a match in column A, I get the corresponding value from column B. What I would like to do is get the MIN value from column B, but I'm not too good with VBA and I haven't got the slightest clue of how I could do that
So if I had a table like this:

A    B
1    5
1    5
1    7
1    4

I would like to get the result "4" instead of "5". Do you have any suggestions on how I should modify the VBA code?
I hope I've made my problem clear and sorry for using the code wraps for the table

 

[WinteE]

Sub GetMinVal()

a = 1
b = Application.WorksheetFunction.Max(Range("B1:B8"))

For Each x In Range("A1:A8")
    If x.Value = a Then
        If x.Offset(0, 1).Value < b Then
            b = x.Offset(0, 1).Value
        End If
    End If
Next

End Sub

 

[drewan]

Thanks!