Hi Zach,
Glad that helps. Given you have some 5000 rows of data, I amended the code to speed things up a bit. Here it goes:
[vba]
Sub kTest()
Dim a, i As Long, j As Long, w(), b, x, cel
Dim Rng1 As Range, Rng2 As Range, r As Long
Set Rng2 = Range("b5", Range("b" & Rows.Count).End(xlUp))
Set Rng1 = Range("f5", Range("f" & Rows.Count).End(xlUp))
a = Rng1.Value
b = Rng2.Value
r = Application.Max(UBound(a, 1), UBound(b, 1))
ReDim w(1 To r, 1 To 1)
For i = 1 To UBound(a, 1)
If Not IsEmpty(a(i, 1)) Then
x = Application.Match(a(i, 1), b, 0)
If IsError(x) Then j = j + 1: w(j, 1) = a(i, 1)
End If
Next
If j > 0 Then Range("m5").Resize(j).Value = w
For i = 5 To j + 4
For Each cel In Rng1
If cel = Range("M" & i) Then
Cells(i, "L") = cel.Offset(, -1)
Exit For ' stop iteration when found matching value
End If
Next cel
Next i
Set Rng1 = Nothing 'clear memory
Set Rng2 = Nothing
End Sub
[/vba]
Cheers
kp