This code:
RPName_rng = Cells.Find(What:=RPName, SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
RPName_rng = Cells.Find(What:=RPNaThis code:
RPName_rng = Cells.Find(What:=RPName, SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
RPName_rng = Cells.Find(What:=RPNa