Copy duplicate instead of deleting

[josef]

I have found this code here , i would like to know is it possible to copy entire row instead of deleting ?I am new to vba ,can someone help me please .thank you.

[vba]
Sub DeleteDups()

Dim x AsLong
Dim LastRow AsLong

LastRow = Range("A65536").End(xlUp).Row
For x = LastRow To 1 Step -1
If Application.WorksheetFunction.CountIf(Range("A1:A" & x), Range("A" & x).Text) > 1 Then
Range("A" & x).EntireRow.Delete
EndIf
Next x

End Sub
[/vba]

[Bob Phillips]

You would change

[vba]

Range("A" & x).EntireRow.Delete
[/vba]

to

[vba]

Rows(x).Copy
[/vba]

but where would you copy it to?

[josef]

Thank you for your reply .It helped me a lot ,I can go forward with it now . I am trying to copy it in another sheet, being new i have to search online .if you let me know ,i shall be grateful to you .Thank you again for your help.

[Bob Phillips]

Know what?