Clear Instead of Remove Duplicates

[interner]

I have various serial numbers scattered throughout rows Q through AE. I want to "clear" rather than "row delete" the cells containing duplicates. The Remove duplicates function would look somewhat like this:

Sub Macro2()
Columns("Q:AR").Select
ActiveSheet.Range("$Q$1:$AR$10002").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5 _
, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28), Header:= _
xlNo
End Sub

I would prefer for the function to clear the cell in which it finds the undesired duplicate.

 

[interner]

Also, how could I make this macro work for only cell types that are of the visible type.