Sub value_FIO()
Dim ArrData
Dim sFIO As String
Dim i As Long, k As Long
    sFIO = "Иванов"
    ArrData = Лист1.Range("A1:B10").Value
    
    For i = 1 To UBound(ArrData)
        If ArrData(i, 1) = sFIO Then
            k = k + 1
            ArrData(k, 1) = ArrData(i, 2)
        End If
    Next i
    
    With Лист1
        .Cells(1, 4).Resize(k, 1).Value = ArrData
    End With
End Sub