Удаление повторяющихся значений

[27102014]

Доброго времени суток!
Имеется такая задача - есть список фамилий и телефонных номеров. Фамилии могут встречаться два раза, всегда рядом,напротив нижней из них обязательно будет телефонный номер. Может быть одна фамилия без телефонного номера. Может быть одна фамилия с телефонным номером.
Нужно пройтись по всему списку и удалить фамилии, встречающиеся в списка два раза - удалить нужно строку с фамилией без телефонного номера и оставить все остальное.

Написал макрос, но он как-то "некузяво" работает - удаляет фамилии, встречающиеся в списке один раз, если у них нет телефонного номера

Пример прикладываю

[Hugo121]

Строки нужно удалять проходом снизу вверх - тогда будет кузяво.
По остальному не понял - по каким условиям удалять...

[Gekan]

Строки вроде принято удалять с конца. Можно и с начала диапазона, но тогда надо будет изменять переменную цикла.

Так вроде работает:

Sub Повторяющиеся_ФИО()

'номер последней строки
lLastRows = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1

        For i = lLastRows To 2 Step -1
        If Cells(i, 1).Value = Cells(i - 1, 1).Value Then
           If Cells(i - 1, 2).Value = "" Then Rows(i - 1).Delete
        End If
        Next

MsgBox ("готово")

End Sub

[27102014]

Сообщение от Hugo121

Строки нужно удалять проходом снизу вверх - тогда будет кузяво.
По остальному не понял - по каким условиям удалять...

Сейчас попробую потестировать на рабочем файле с циклом снизу-вверх.
Удалять нужно только дублирующиеся фамилии, например, есть две строки - Иванов и Иванов 589736, удалить нужно строку Иванов и оставить строку с телефонным номером Иванов 589736