I'm using this to find a value in a range subject to criteria;
Lastrow = Range("A65536").End(xlUp).RowFor Each cell In Range("A2:A" & Lastrow)
Set r = Sheet4.Cells.Find(What:=cell, After:=[B1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
If Not r Is Nothing Then
cell.Offset(0, 1) =...