Source sheet is named Sheet1.
Destination sheet is named Sheet2.
Sheet2 should contain header as well as the unique codenames.
Using your sample data, Sheet2 looks like:
Code Name RPP UMSC Dr Price Alpha SC Lab Referral
When you have met the above criteria, then try the code below:
Dim lRow As Integer
lRow = Range("A1").End(xlDown).Row
x = 2
For Each cell In Range("A2:A" & lRow)
If cell = Sheets("Sheet2").Cells(x, "A") Then
Sheets("Sheet2").Cells(x, Columns.Count).End(xlToLeft).Offset(0, 1) = cell.Offset(0, 5)
x = x + 1
Loop Until IsEmpty(Sheets("Sheet2").Cells(x, "A"))