With Cells(5, 1).CurrentRegion.Columns(23)
    .Value = Evaluate("=IF(" & .Address & "=""Duplicate"",1," & .Address & ")")
    .SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow.Delete
End With