Феоктистов	900
Гармыш	1000
Еремин	900
Коблун	1000
Санин	600

Sub tt()
    Dim a(), b(), i&, ii&, el
    a = Sheets(1).[a1].CurrentRegion.Value
    b = Sheets(2).[a1].CurrentRegion.Value
    ReDim c(1 To UBound(a) + UBound(b), 1 To UBound(a, 2))

    With CreateObject("scripting.dictionary")
        '1
        For i = 1 To UBound(a): .Item(a(i, 1)) = i: Next

        '2
        For i = 1 To UBound(b)
            If Not .exists(b(i, 1)) Then
                ii = ii + 1
                c(ii, 1) = b(i, 1): c(ii, 2) = b(i, 2)
            Else
                .Item(b(i, 1)) = 0
            End If
        Next

        '3
        For Each el In .items
            If el > 0 Then ii = ii + 1: c(ii, 1) = a(el, 1): c(ii, 2) = a(el, 2)
        Next

    End With

    Sheets(3).[a1].Resize(ii, UBound(a, 2)) = c
End Sub