Sub MergeAllWorkbooks()
With Application: .DisplayAlerts = False: .ScreenUpdating = False: End With
    Dim FolderPath As String
    Dim FileName As String
    Dim WorkBk As Workbook
    Dim SourceRange()
    Dim DestRange()
    Dim twb As Workbook
    
    
    FolderPath = "\\здесь путь к файлам"
    
    ' Call Dir the first time, pointing it to all Excel files in the folder path.
    FileName = Dir(FolderPath & "*.xlsx")
    
    Set twb = ThisWorkbook
    DestRange = twb.Worksheets(1).Range("F6:F57").Value
    
    ' Loop until Dir returns an empty string.
    Do While FileName <> ""
        ' Open a workbook in the folder
        Set WorkBk = Workbooks.Open(FolderPath & FileName)
      
        SourceRange = WorkBk.Worksheets(1).Range("F6:F57").Value
                
        For i = 1 To UBound(SourceRange)
            DestRange(i, 1) = DestRange(i, 1) + SourceRange(i, 1)
        Next
        ' Close the source workbook without saving changes.
        WorkBk.Close savechanges:=False
        
        ' Use Dir to get the next file name.
        FileName = Dir()
    Loop
    
    With Application: .DisplayAlerts = True: .ScreenUpdating = True: End With
End Sub