Option Explicit
Sub deletesortedduplicates()
Dim i As Long
Dim MC As Long
MC = 1 'col A
For i = Cells(Rows.Count, MC).End(xlUp).Row To 1 Step -1
If Cells(i, MC) = "" and cells(i,mc+2)<"" Then Rows(i).Delete
Next i
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Wen" wrote in message
...
Anyone has a good sub to delete from a given range any row with blank
index cell?
For example, I have a table range with column A titled "Name" as index
column. I need a sub that deletes any row where column A is blank, but
say, column C has non-blank value. it is not the same as deleting all
blank rows in a range.
TIA.
Wen