Sub YYY()
Dim Isxod&, Bxod&, i&
Isxod = Cells(Rows.Count, 9).End(xlUp).Row
Bxod = Cells(Rows.Count, 1).End(xlUp).Row
    Set Isx = Range("I2:I" & Isxod)
    Set Bxo = Range("A2:A" & Bxod)
        For i = 2 To Bxod
           Fami = Range("A" & i).Value
           Set Isx = Range("I2:I" & Isxod).Find(Fami)
           If Not Isx Is Nothing Then
            IsxRow = Isx.Row
            Range(Cells(IsxRow, 10), Cells(IsxRow, 13)).Copy
            Range("B" & i).PasteSpecial
             
           End If
        Next
End Sub

Sub tt()
    Dim Isxod&, Bxod&, i&
    Application.ScreenUpdating = 0 'поскольку у нас ниже вставка идет в цикле (есть несколько обращений к листу)
    Application.Calculation = xlCalculationManual ' то отключаем обновление экрана и автопересчет
    Isxod = Cells(Rows.Count, 9).End(xlUp).Row
    Bxod = Cells(Rows.Count, 1).End(xlUp).Row
    Set Isx = Range("I2:I" & Isxod)
    Set Bxo = Range("A2:A" & Bxod)
    For i = 1 To Bxod - 1
        Fami = Bxo(i, 1).Value 'Range("A" & i).Value - если сделал массив, то им и пользуйся
        Set Isx1 = Isx.Find(Fami) ' если сделал массив, то им и пользуйся. Зачем переназначать массив Isx?
        'вернее, если здесь переназначаешь, то зачем тогда назначал раньше?
        If Not Isx1 Is Nothing Then
            IsxRow = Isx1.Row
            Cells(IsxRow, 10).Resize(1, 3).Copy Range("B" & i + 1)
'            Range("B" & i).PasteSpecial
'А если уж вставляешь второй строкой, то нужно снять выделение (можно уже после цикла)
'Application.CutCopyMode = 0
        End If
    Next
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = 1
End Sub

Sub ee()
    Application.ScreenUpdating = 0
    Application.Calculation = xlCalculationManual
    n0_ = Cells(Rows.Count, 1).End(xlUp).Row - 1
    n1_ = Cells(Rows.Count, 9).End(xlUp).Row - 1
    ar0 = Range("A2").Resize(n0_)
    ar1 = Range("I2").Resize(n1_)
    Set slov = CreateObject("Scripting.Dictionary")
    With slov
        For i = 1 To n1_
            .Item(ar1(i, 1)) = i 'ФИО второго диапазона в словарь ключами, а порядковый номер записи - элементами
        Next i
        For j = 1 To n0_
            If .Exists(ar0(j, 1)) Then
            hhh = .Item(ar0(j, 1))
                Cells(.Item(ar1(j, 1)) + 1, 10).Resize(1, 4).Copy Cells(j + 1, 2).Resize(1, 4)
            End If
        Next j
    End With
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = 1
End Sub