Sub text()
Dim j As Integer, k As Integer, r As Range
j = Range("E2").End(xlDown).Row
For k = j To 2 Step -1
    MsgBox k
    Set r = Range(Cells(k, "E"), Cells(k, "E").End(xlUp))
    If WorksheetFunction.CountIf(r, Cells(k, "E")) > 1 Then
        Cells(k, "E").EntireRow. Delete
    End If
Next k
End Sub