Уважаемые форумчане ,вот макрос , он удаляет значения без смещения по строкам, недубликатов . В рамка строк он выдерживает диапазон , а вот в рамках столбцов проходит до конца листа . Как его немножко изменить , что-бы он действовал строго в рамках диапазона ?

Sub Main333()
Dim x As Range, y As New collection, i As Long, a(), s As String
a = [A1:C100].Value: Application.ScreenUpdating = False
For i = 1 To UBound(a, 1)
s = Join(Application.Index(a, i, 0), "|")
On Error Resume Next: y.Add s, s
If Err <> 0 Then
If x Is Nothing Then Set x = Rows(i) Else Set x = Union(x, Rows(i))
On Error GoTo 0
End If: Next: x.Clear
End Sub

пробуй камнем,

Отлично , всё получилось !!! Большое спасибо !!!