Delete duplicate rows if they do not contain a specific word

[SamT]

With ActiveSheet
If .Range("A1") <> "NAME" Then

For each Row
If Row = Duplicate Then
Row.Delete
End If
Next
End If
End With