Remove duplicates from Rows with the last Row only as reference

[p45cal]

SamT interpreted your requirement better than I did!

If you need more speed, use arrays

Sub DeleteDuplicateEntries2()
Dim ChkRng, TestRng As Range, TRVals, rv, rw As Long, colm As Long, n As Long

With Selection
  ChkRng = .Rows(.Rows.Count)
  Set TestRng = .Cells(1).Resize(.Rows.Count - 1, .Columns.Count)
  TRVals = TestRng.Value
End With

For Each rv In ChkRng
  If Not IsEmpty(rv) Then
    For rw = 1 To UBound(TRVals)
      For colm = 1 To UBound(TRVals, 2)
        If TRVals(rw, colm) = rv Then
          TRVals(rw, colm) = Empty
          n = n + 1
        End If
      Next
    Next
  End If
Next
TestRng = TRVals
MsgBox n
End Sub