Move and Group duplicate data into a table on same sheet?

Hello, I would like to be able to have excel search a column of data for duplicates and then move those duplicates into a seperate table. Thanks in advance for you help.

For example:
Column A
123
222
456
123
778
222


New table would have:
123
222

Hi

Try this

Sub aaa()
  Set Rng = Range(Range("A1"), Cells(Rows.Count, 1).End(xlUp))
  For Each ce In Rng
    If WorksheetFunction.CountIf(Rng, ce) > 1 And WorksheetFunction.CountIf(Range("C:C"), ce) = 0 Then
      Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Value = ce
    End If
  Next ce
End Sub

rylo

Thanks! I ended up using a vlookup over the weekend before I saw you reply.