=ИНДЕКС(ДВССЫЛ("'"&$A3&"'!A:J");ПОИСКПОЗ("ИТОГО";ДВССЫЛ("'"&$A3&"'!A:A"););СТОЛБЕЦ())

Sub Макрос3()
    Dim ws As Worksheet, lr As Long, n As Long, m As Integer
    With ThisWorkbook
        lr = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count
        For Each ws In .Worksheets
            If ws.Name <> "СВОД" Then
                arr = .Worksheets(ws.Name).UsedRange
                For n = UBound(arr) To 1 Step -1
                    If arr(n, 1) = "ИТОГО" Then
                        With .ActiveSheet
                            .Cells(lr, 1) = ws.Name
                            For m = 2 To 10
                                .Cells(lr, m).FormulaR1C1 = "='" & ws.Name & "'!R[" & n - lr & "]C"
                            Next
                            lr = lr + 1
                        End With
                    End If
                Next n
            End If
        Next ws
        .ActiveSheet.Cells(lr, 1) = "ИТОГО"
        For m = 2 To 10
            .ActiveSheet.Cells(lr, m).FormulaR1C1 = "=Sum(R[" & -lr + 3 & "]C:R[-1]C)"
        Next
    End With
End Sub