VBA Macro To Create A New Column Of Unique Values From Another Column Of Duplicates

[snb]

Basically a oneliner suffices, provided the 'name in cell R1 contains no spaces e.g 'concatselection'.

In the codemodule of sheet 'Report'

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$1" Then Sheets("Extract ESR").UsedRange.Columns(18).AdvancedFilter 2, , Sheets("Extract ESR").Cells(1, 23), True
End Sub