Consolidate (sum) specific range for all worksheets with common cell value

Okay try this code.
Place the following code on a Standard Module by following these steps..

1) Open your file.
2) Press Alt + F11 to open VBA Editor.
3) On VBA Editor, click on Insert and choose Module. This will open a code window on right side.
4) Paste the code into that code window.
5) Close the VBA Editor and Save your workbook As Macro-Enabled Workbook.

The code will take some time to process 80 data sheets and summarize their totals in 20 Summary Sheet so be patient during the code execution. You can monitor the progress of the code by looking at the Status Bar of the Excel Window. It will tell you that which Summary Sheet is being currently processed.

Code:

Sub GetSumInSummarySheets()
Dim i As Long, j As Long
Dim sCnt As Long, dCnt As Long

With Application
    .EnableEvents = False
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
End With

DoEvents

For sCnt = 1 To 20
    Sheets(sCnt).Range("D11:O340").ClearContents
Next sCnt

For sCnt = 1 To 20
    Application.StatusBar = "Working with Summary Sheet " & sCnt
    For dCnt = 21 To Worksheets.Count
        If Sheets(sCnt).Range("A1").Value = Sheets(dCnt).Range("A1").Value Then
            For j = 4 To 15
                For i = 11 To 340
                    Sheets(sCnt).Cells(i, j) = Sheets(sCnt).Cells(i, j) + Sheets(dCnt).Cells(i, j)
                Next i
            Next j
        End If
    Next dCnt
Next sCnt

With Application
    .EnableEvents = True
    .ScreenUpdating = True
    .Calculation = xlCalculationAutomatic
    .StatusBar = False
End With
MsgBox "Done!", vbInformation
End Sub

Select all Open in new window

To run the code....

Press Alt + F8 to open Macro window, select the macro GetSumInSummarySheets and click on Run.