No, you can remove the duplicate ones, then you are left with the unique
ones and an move those wherever you want. In all other cases you would need
to use a filter
Let's say we have a list of entries in column A and want to remove the unique
ones. Enter and run this macro:
Sub dropum()
n = Cells(Rows.Count, "A").End(xlUp).Row
For i = n To 1 Step -1
v = Cells(i, 1).Value
k = Application.WorksheetFunction.CountIf(Range("A:A"), v)
'MsgBox (v & " " & k)
If k = 1 Then
Cells(i, 1).Delete
End If
Next
End Sub