Sub Макрос11()
    Dim rr As Range, k As Integer, j As Integer
    k = Sheets("итоги").UsedRange.Rows.Count
    Sheets("итоги").Select
    Range("B2").Select
    For j = 2 To k Step 1
        Range("B" & j).Select
        Set rr = Cells.Find(What:=Sheets("итоги").Cells(j, 2).Value, SearchDirection:=xlNext)
        If Not rr Is Nothing And rr.Column = 1 Then
        rr.Offset(, 5).Value = Sheets("итоги").Cells(j, 3).Value
        End If
    Next j    
End Sub

Sub fnd()
On Error Resume Next
Dim rcell As Range, lRow&, i&
lRow = Sheets("итог").Range("b1048576").End(xlUp).Row
For Each rcell In Sheets("итог").Range("b2:b" & lRow)
    If rcell.Value <> "" Then
        For i = 1 To Sheets.Count
            If Not Sheets(i).Name = "итог" Then
                rcell.Offset(0, 1).Value = Sheets(i).Cells.Find(What:=rcell.Value, After:=ActiveCell, LookIn:=xlValues, LookAt _
                :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext).Offset(0, 2).Value
            End If
        Next
    End If
Next
End Sub

Function fndval(rcell As Range) As Double
On Error Resume Next
Dim i&
    If rcell.Value <> "" Then
        For i = 1 To Sheets.Count
            If Not Sheets(i).Name = "итог" Then
                fndval = Sheets(i).Cells.Find(What:=rcell.Value, After:=ActiveCell, LookIn:=xlValues, LookAt _
                :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext).Offset(0, 2).Value
            End If
        Next
    End If
End Function 

Sub Finder() 
Dim Rng As Range, i As Integer, j As Long, LastRow As Long, Freerow As Long, Inv
    LastRow = Cells(Rows.Count, 2).End(xlUp).Row
'    Range(Cells(2, 3), Cells(LastRow + 1, 3)).ClearContents
'    Freerow = 2
    For i = 2 To LastRow
        Inv = Cells(i, 2)
        For j = 1 To Sheets.Count - 1
            With Sheets(j)
                Set Rng = .Columns(2).Find(what:=Inv, LookIn:=xlValues, lookAt:=xlWhole)
                If Not Rng Is Nothing Then
                    Rng.Offset(0, 1) = Cells(i, 3)
                End If
            End With
        Next
'        Freerow = Freerow + 1
    Next
End Sub