Sub test()
With Range("IV2:IV" & ActiveSheet.UsedRange.Rows.Count)
.FormulaR1C1 = "=IF(COUNTIF(RC[" & -.Column + 1 & "]:RC[-1],0)=0,1,"""")"
.Value = .Value
If Application.CountA(.Offset(0)) > 0 Then .SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow.Delete
.Clear
End With
End Sub