find duplicates and concatenate

[rpick60]

I am trying to find all duplicates in a range R8:R1000 and then grab
the value in Column C of the the duplicate rows and concatenante them
all to the cell in S of that row

example

c d ....... r s (results)
2 P1 2,4,5
3 P2 3
12