En stump kode

Skal cellerne fjernes helt (celler rykkes opad)?
Eller er det bare værdien i cellerne der skal slettes?

Marker værdier og kør kode

Sub Terminator()

Dim rng As Range
Dim rng2 As Range
Set rng = Selection

For Each c In rng
  If WorksheetFunction.CountIf(rng, c.Value) > 1 Then
    If rng2 Is Nothing Then
      Set rng2 = c
      Else
      Set rng2 = Application.Union(rng2, c)
    End If
  End If
Next

rng2.Interior.ColorIndex = 3

tittel = " Uønskede værdier er nu farvet rød..."
valg1 = "Tast 1 Sletter kun celleværdi"
valg2 = "Tast 2 Sletter og rykker celler op"
valg3 = "Tast 3 Sletter hele rækken"
valg = InputBox("" & valg1 & Chr(10) & valg2 & Chr(10) & valg3 & "", tittel)

If valg = 1 Then rng2.Interior.ColorIndex = xlNone: rng2 = ""
If valg = 2 Then rng2.Delete Shift:=xlUp
If valg = 3 Then rng2.EntireRow.Delete
End Sub

Virker perfekt - lægger du lige et svar ?

jada