Sub tester()
lrow = Range("B" & Rows.Count).End(xlUp).Row
For i = lrow To 2 Step -1
Cells(i, 2).Select
If ActiveCell.Value < ActiveCell.Offset(-1).Value Then
Else
ActiveCell.ClearContents
End If
Next i
End Sub

"printerdan" wrote:

I have a song list I need to purge down such as -

Abba Chiquita SFG058
Abba Duck & Run SC3244
Abba Dancing Queen DK041
Abba Dancing Queen SFABBA001
Abba Dancing Queen SC8765
Abba Take A Chance On Me CBEP74

where Dancing Queen is repeated with a different disk code, I want to delete
further references (row D3 thru D4). The intent is to import the results into
a publishing program (InDesign).