Delete Entire Row on duplicate values from multiple columns

Hi,
Been trying to find the macro that really delete entire row when it finds duplicate values in the selected columns defined in the macro. Below I found to be able to delete on the cells but not entire row. And the deleted of cells have cleared out my formattings and validation lists on the affected cells, making them totally empty/blanks. If delete entire rows on duplicates, this will allow users to no longer see the blank spaces between the last row with data and the next row with the formattings and validations lists.

Below is what I found so far but not entirely end results as I wish. Appreciate experts to help for entire row. Thank you in advance.

Sub DeleteDuplicates()

With ActiveSheet
Set Rng = Range("A1", Range("B1").End(xlDown))
Rng.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
End With

End Sub

Originally Posted by sktneer

Try this....

Please Login or Register  to view this content.

Hi sktneer,
Thank u for the swift response. However, ur code still did not able to retain the formattings and validation lists after deleting the duplicates.