The 4th column D to be filler.

[T. Valko]

...

But of course if the 15:30 and 5:30 are times, rather than text strings,
the concatenated values will be different:
1000.645833333333333
10010.229166666666667

Yeah, that wasn't the best data to use for an example but I think people
will understand the concept.

 

[Guest]

I found these subs on this DG a while back. Try either; try both.

Sub Uniques()
Dim i As Integer
i = 1
Do Until Cells(i, 1).Value = "" '(as long as your data is in column 1)
If Cells(i, 1) = Cells(i + 1, 1) Then
Else
Cells(i, 1).Copy
Cells(i, 5).PasteSpecial xlValues '(this pastes into column E)
End If
i = i + 1

Loop
Range("E5:E1000").Sort Key1:=Range("E5"), Order1:=xlAscending

Columns("E:E").Select
Selection.Sort Key1:=Range("E1"), Order1:=xlAscending
Range("A1").Select

End Sub


Sub ExtractUnique()
Sheets("Find Dupes").Range("A1:A20").AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=Range("C1"), _
Unique:=True
End Sub

Hope this helps.
Regards,
Ryan--