Sub luxation()
  Dim r             As Range
  Dim iRow          As Long
  Dim iCol          As Long
 
  Set r = ActiveSheet.UsedRange
 
  For iCol = 1 To r.Columns.Count
    For iRow = r.Rows.Count To 2 Step -1
      If r(iRow, iCol).Value2 = r(iRow - 1, iCol).Value2 Then r(iRow, iCol).ClearContents
     Next iRow
  Next iCol
End Sub