Display a formula as a value using a macro
 

I have a macro which allows me to display unique data on a seperate
worksheet. How can I get the concatenate formula to display as text on my
new worksheet? Below is the macro I used to sort unique values.

Sub uniquevalue()
Sheets("Conversion").Range("G2:G3000").AdvancedFil ter
Action:=xlFilterCopy, _
CopyToRange:=Range("C2"), Unique:=True
End Sub

Thanks