Sub Обновить_иторию()

Dim sFolder As String, sFiles As String, wb As Workbook
'отключаем обновление экрана, чтобы наши действия не мелькали
    Application.ScreenUpdating = False
'отключаю появление всплывающего окна
    Application.DisplayAlerts = False

sFolder = "ТУТ прописан адрес конкретной папки"
sFiles = Dir(sFolder & "*.xlsx*")
    Do While sFiles <> ""
        'открываем книгу
        Set wb = Workbooks.Open(sFolder & sFiles)
            Dim Connection As WorkbookConnection
            For Each Connection In wb.Connections
                If Connection.Name = "Запрос — фин" Then
                Connection.Refresh
                End If
            Next Connection
        wb.Close True
        sFiles = Dir
    Loop
'возвращаем ранее отключенное обновление экрана
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True

=СУММ(ИНДЕКС('C:\Users\ххх\Desktop\[книга1.xlsb]Производство'!$I$49:$DD$49;1;ПОИСКПОЗ(ЗНАЧЕН(ЛЕВСИМВ(AL6;4));'C:\Users\ххх\Desktop\[книга1.xlsb]Производство'!$I$6:$DD$6;0)):ИНДЕКС('C:\Users\ххх\Desktop\[книга1.xlsb]Производство'!$I$49:$DD$49;1;ПОИСКПОЗ(ЗНАЧЕН(ЛЕВСИМВ(AL6;4)+2);'C:\Users\ххх\Desktop\[книга1.xlsb]Производство'!$I$6:$DD$6;0)))

Sub графики()
Dim r, i, inv As Integer
    Application.ScreenUpdating = False

    With Sheets("Инвентаризация")
        .Activate
        .Range("C3").End(xlDown).Select
        r = ActiveCell.Row
    End With
For i = 3 To r
    Sheets("График").Select
    Cells(7, 2).Select
        ActiveCell.FormulaR1C1 = "=Инвентаризация!R" & i & "C4"
    Cells(8, 2).Select
        ActiveCell.FormulaR1C1 = "=Инвентаризация!R" & i & "C5"
    Cells(9, 2).Select
        ActiveCell.FormulaR1C1 = "=Инвентаризация!R" & i & "C6"
    Range(Cells(5, 2), Cells(5, 25)).Select
    Selection.ClearContents
    Cells(10, 1).Select
        ActiveCell.FormulaR1C1 = "=Инвентаризация!R" & i & "C9"
    Cells(10, 2).Select
        ActiveCell.FormulaR1C1 = "=MATCH(R10C1,R1C2:R1C25,1)"
    inv = Cells(10, 2).Value
    Cells(5, inv + 1).Select
    ActiveCell.FormulaR1C1 = "=MAX(R4C2:R4C25)*1.05"
    Sheets("График").Copy After:=Sheets(i)
    Sheets("График (2)").Select
    Sheets("График (2)").Name = i - 2
    ActiveSheet.Rows("1:10").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Range("A1").Select
    Application.CutCopyMode = False
    Sheets("Инвентаризация").Activate
    ActiveSheet.Cells(i, 1).Select
    ActiveCell.Value = i - 2
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'Лист" & i - 2 & "'!A1"
    Next i
    Application.ScreenUpdating = True

End Sub

SubAddress = "'1'!A1"

ActiveCell.FormulaR1C1 = _
                    "=SUMPRODUCT(('В-I-1'!R4C7:R38C7=календарь!R2C2)*('В-I-1'!R2C21:R2C137=календарь!R11C)*('В-I-1'!R3C21:R3C137=календарь!R4C2),'В-I-1'!R4C21:R38C137)"