the easiest, but probably most inneficient way to do this is to check
each value against all the values:

for a=1 to MAX
for b=a to MAX
if rng.cells(a,1)=rng.cells(b,1) then
'copying/moving
endif
next b
next a

JOUIOUI wrote:
I have a very long worksheet that occasionally contains duplicate numbers in
Col A or duplicate numbers in col B. I'd like to copy these duplicates from
the sheet titled "AllRecords" and move them to a sheet in the existing
workbook titled, "Duplicate Records" with VBA. I've tried altering this code
and have not had any success, I can't figure out how to stipulate duplicates
in those columns. Any help you can provide is greatly appreciated. Thank you

Dim rng As Range, cell As Range

Dim i As Long, sh As Worksheet
With Worksheets("All Records")
Set rng = .Range(.Cells(1, 1), _
.Cells(Rows.Count, 1).End(xlUp))
End With
i = 1

Set sh = Worksheets("DUPLICATE RECORDS")
For Each cell In rng
cell.EntireRow.Copy sh.Cells(i, 1)
i = i + 1

End If