I am trying to find a function/condition that maybe able to do this, thanks
for the input though!


"Bob Phillips" wrote:

Here's a code way

Sub CopyDuplicates()
Dim iLastRow As Long
Dim i As Long
Dim cell As Range

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To iLastRow
Set cell = Nothing
Set cell = Range("A1:A" & i - 1).Find(Cells(i, "A").Value)
If Not cell Is Nothing Then
cell.EntireRow.Copy Cells(i, "A")
End If
Next i

End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)