Hello again Paul. I have tried the code but when I replace it with the last one you sent I get a run-time error (424 - object required) and this line is highlited:

Set Rng = ThisWorkbook.Worksheets("Results").Cells.Find(what :=Right(.Cells(i, 2).Value, 7).Value, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True)

Also, when I use the old version of the code, the result I get is the name of the column and not the name of the cells just above the results....