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

[bakerman]

Try this one

Sub NoDupes()
    Dim sq() As Variant
    With Sheets("Extract ESR")
        sn = .Range("V2:V" & .Cells(Rows.Count, 22).End(xlUp).Row)
    End With
    On Error Resume Next
    With New Collection
        For j = 1 To UBound(sn)
            .Add sn(j, 1), CStr(sn(j, 1))
        Next
        ReDim Preserve sq(.Count)
        For i = 1 To .Count
            sq(i - 1) = .Item(i)
        Next
    End With
    On Error GoTo 0
    Sheets("Extract ESR").Range("W2").Resize(UBound(sq)) = WorksheetFunction.Transpose(sq)
End Sub