Wow, a lot of posts!

If you're comforatble with VBA you could try the following:

Assume both lists start in row 1.
List 1 is in columns A - E ends in row 13
List 2 is in columns G - K ends in row 5
------------------
Option Explicit

Public Sub FixNames()
Const FirstRow1 As Integer = 1
Const LastRow1 As Integer = 13
Const FirstRow2 As Integer = 1
Const LastRow2 As Integer = 5
Dim Index1 As Integer
Dim Index2 As Integer

Sheets("Sheet1").Activate
Application.ScreenUpdating = False
For Index2 = FirstRow2 To LastRow2
For Index1 = FirstRow1 To LastRow1
If Cells(Index1, 1) = Cells(Index2, 7) Then
Range(Cells(Index1, 1), Cells(Index1, 5)).Select
Selection.Delete Shift:=xlUp
Exit For
End If
Next Index1
Next Index2
Application.ScreenUpdating = True
End Sub
------------------
By the way, I've always liked Jer 29:11

Art