change:
Code:
Set oRng = .Cells.Find(What:="Pears")
to:
Code:
Set oRng = .Cells.Find(What:="Pears", after:=.Cells(.Cells.Count))
The default place .Find starts looking is
after the first cell in the range it's searching, which is the 2nd cell).
The adjustment makes it start searching after the last cell in that range, so it starts searching from the first cell in the range.