Sub DeleteDups()
do while ActiveCell < ""
if activeCell.Value = activecell.Offset(1,0).Value then
ActiveCell.Offset(1,0).EntireRow.Delete
else
ActiveCell.Offset(1,0).Select
end if
Loop
End Sub

Select the first cell in the column you want to check and run the macro.

Untested, but should work. Test it on a copy of your workbook.

--
Regards,
Tom Ogilvy

"FSK- in montreal" wrote in message
...
It's been quite a few years since I've had to use macros.
But now I'm stuck. I have several large worksheets that
are the result of merged databases and I would like to use
a macro to eliminate duplicate records. This is following
a sort where I can clearly see one row and the one beneath
it has the duplicate data.

Any suggestions please!!!! Thank you