Potential combination of LookUp and DeDupe to create multiple values in a single cell

My previous code shows the results in columns "A & B"
Change as below for various options:-

Next Dn
'Option 1 sheet3 starts column "C"
With Sheets("Sheet3").Range("C1").Resize(c, 2)
    
'Option 2, Activesheet column "C"
With Activesheet.Range("C1").Resize(c, 2)


.Value = Ray
    .Columns.AutoFit
    .Borders.Weight = 2
End With