Sub CopyFilesData()
    Dim avFiles
    Dim li As Long
    Dim wb As Workbook
    avFiles = Application.GetOpenFilename _
            ("Excel files(*.xls*),*.xls*", 1, "", , True)
    If VarType(avFiles) = vbBoolean Then
        Exit Sub
    End If
    
    'On Error Resume Next
     
     
    For li = LBound(avFiles) To UBound(avFiles)
        Set wb = Application.Workbooks.Open(avFiles(li), False, False)
                  
        ThisWorkbook.ActiveSheet.Range("A125:B129").Copy
        ActiveWorkbook.Sheets("затраты").Range("H106:I110").PasteSpecial Paste:=xlPasteFormulas
        ActiveWorkbook.Sheets("затраты").Calculate
        wb.Close True
    Next li
    Application.Calculation = xlCalculationAutomatic
    Application.DisplayAlerts = True
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    Application.CutCopyMode = False
End Sub

Дмитрий(The_Prist) Щербаков написал:
А по представленному куску кода обсуждать особо нечего, только гадать. Sub ()
On Error Resume Next
Application.Calculation = xlCalculationManual
Dim avFiles
Dim li As Long
Dim wb As Workbook
    avFiles = Application.GetOpenFilename _
            ("Excel files(*.xls*),*.xls*", 1, "", , True)
    If VarType(avFiles) = vbBoolean Then
    Exit Sub
    End If
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
    For li = LBound(avFiles) To UBound(avFiles)
        Set wb = Application.Workbooks.Open(avFiles(li), 0)
                
        ThisWorkbook.ActiveSheet.Range("A125:B129").Copy
        ActiveWorkbook.Sheets("затраты").Range("H106:I110").PasteSpecial Paste:=xlPasteFormulas
                  
        wb.Close True
    Next li
Application.Calculation = xlCalculationAutomatic
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.CutCopyMode = False

End Sub

ThisWorkbook.ActiveSheet.Range("A126:B129").Copy
        ActiveWorkbook.Sheets("затраты").Range("H107:I110").PasteSpecial Paste:=xlPasteFormulas

Sub Убрать связи()
On Error Resume Next
    Dim sFolder As String, sFiles As String
    Dim wb As Workbook
    Dim WbLinks As Variant, i As Long
        With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = False Then Exit Sub
        sFolder = .SelectedItems(1)
        End With
    sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator)
    Application.ScreenUpdating = False
    Application.AskToUpdateLinks = False
    sFiles = Dir(sFolder & "*.xls*")
Do While sFiles <> ""
            Set wb = Application.Workbooks.Open(sFolder & sFiles, 0)
            WbLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
            If Not IsEmpty(WbLinks) Then
                For i = 1 To UBound(WbLinks)
                ActiveWorkbook.BreakLink Name:=WbLinks(i), Type:=xlExcelLinks
                Next i
            End If
            wb.Close True
            sFiles = Dir
   Loop
   Application.ScreenUpdating = True
 End Sub

 Range("A110:DY300").Select
               For Each rCell In Selection
               If rCell.Locked = False Then
                  rCell.Select
                  Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
               End If
               Next rCell

Sub test()
    Dim sFolder As String
    Dim wb As Workbook
    Dim x
    Dim sFiles
    sFiles = Application.GetOpenFilename("Excel files(*.xls*),*.xls*", 1, "Âûáðàòü ôàéëû", , True)
        If VarType(sFiles) = vbBoolean Then
        Exit Sub
    End If
    Application.ScreenUpdating = False
    Application.AskToUpdateLinks = False
    Range("B7").Select
    Selection.Copy
    Do While sFiles <> ""
               Set wb = Application.Workbooks.Open(sFiles, 0)
                wb.Sheets("лист").Activate
                Range("ae29").Select
                Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
                wb.Close True
                sFiles = Dir
    Loop
    Application.ScreenUpdating = True
    Application.CutCopyMode = False
End Sub

Sub Поменять_форматы()
   Dim sFolder As String, sFiles As String
   Dim wb As Workbook
       With Application.FileDialog(msoFileDialogFolderPicker)
       If .Show = False Then Exit Sub
   sFolder = .SelectedItems(1)
   End With
   sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator)
   Application.ScreenUpdating = False
   Application.AskToUpdateLinks = False
   sFiles = Dir(sFolder & "*.xls*")
   Range("B12").Select
   Selection.Copy
   Do While sFiles <> ""
              Set wb = Application.Workbooks.Open(sFolder & sFiles, 0)
             
              wb.Sheets("Лист").Activate
              Range("A110:DD2000").Select
              Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
         
              wb.Close True
              sFiles = Dir
   Loop
   Application.ScreenUpdating = True
   Application.CutCopyMode = False
   MsgBox "Форматы изменены"
End Sub