If lists of names are going to be all over the place, and they're not all headed with the same headers or tasks, then it might be easier each time to ask the user where they are and where he wants the results.
The following will ask the user this and allow him to select them with the mouse:
Sub MatchCandidates()
Dim List1 As Range, List2 As Range, Destn As Range
On Error Resume Next
Set List1 = Application.InputBox("Select the first list of names", "1st List", , , , , , 8)
If List1 Is Nothing Then Exit Sub
Set List2 = Application.InputBox("Select the second list of names", "2nd List", , , , , , 8)
If List2 Is Nothing Then Exit Sub
Set Destn = Application.InputBox("Select where you want the results", "Destination", , , , , , 8) 'where the result will go.
If Destn Is Nothing Then Exit Sub
On Error GoTo 0
Set List1 = List1.Columns(1)
Set List2 = List2.Columns(1)
Set Destn = Destn.Cells(1)
Application.ScreenUpdating = False
Count = 0 'for numbering the results
For Each cll In List2.Cells
If Not IsError(Application.Match(cll.Value, List1, 0)) Then
Count = Count + 1
Destn.Value = Count
Destn.Offset(, 1).Value = cll.Value
Set Destn = Destn.Offset(1)
End If
Next cll
Application.ScreenUpdating = True
End Sub