Copying specific ranges/cells on a standard template - vba

Question

I fairly new to VBA, using it to work on simple macros to automatize my time.
I am looking for an Excel macro which copies specific cells, on different regions of a series of worksheets from the same template(see the image, I want to copy the, yellow, gray and green cells). All sheets work on the same workbook. The main quest is: Put it all together, as values, sequentially on one sheet, with just the same headers and put a total sum in the end of this columns. If it's simpler to keep/use the template and sum the values in there, ok for me too. If I've created 20 new sheets, the macro will read the already existed and the new sheets and consolidate it in the sheet "consolidated".
I've found a code that do almost everything I need, but I'm struggling to change de range on to copy regions I want.
Like I said, using the template (create a copy from the master template and summing the values in there?) or simply combining the value side by side, so every row represent a sheet, for me ok too.
Please, any help is welcomed, thanks in advance.
The code I used follows below [source].
Sub CopyRangeFromMultiWorksheets()
Dim sh As Worksheet
Dim DestSh As Worksheet
Dim Last As Long
Dim CopyRng As Range
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
'Delete the sheet "Consolidado" if it exist
Application.DisplayAlerts = False
On Error Resume Next
ActiveWorkbook.Worksheets("Consolidado").Delete
On Error GoTo 0
Application.DisplayAlerts = True
'Add a worksheet with the name "Consolidado"
Set DestSh = ActiveWorkbook.Worksheets.Add
DestSh.Name = "Consolidado"
'loop through all worksheets and copy the data to the DestSh
For Each sh In ActiveWorkbook.Worksheets
If sh.Name <> DestSh.Name And sh.Name <> "Menu" And sh.Name <> "Infos" And sh.Name <> "Log Update" And sh.Name <> "Master" Then
'Find the last row with data on the DestSh
Last = LastRow(DestSh)
'Fill in the range that you want to copy
Set CopyRng = sh.Range("A1").CurrentRegion
'Test if there enough rows in the DestSh to copy all the data
If Last + CopyRng.Rows.Count > DestSh.Rows.Count Then
MsgBox "There are not enough rows in the Destsh"
GoTo ExitTheSub
End If
'This example copies values/formats, if you only want to copy the
'values or want to copy everything look at the example below this macro
CopyRng.Copy
With DestSh.Cells(Last + 1, "A")
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteFormats
Application.CutCopyMode = False
End With
End If
Next
ExitTheSub:
Application.Goto DestSh.Cells(1)
'AutoFit the column width in the DestSh sheet
DestSh.Columns.AutoFit
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
The Excel Template
EDIT:
The results can be one of the 2 below, which is easier to do.
Result sheet option 1
Result sheet option 2
EDIT 2
Clean workbook

Answer 1

After the clarification in the comments I would do as follows:
For simplicity lets take the following Template:
So you want Cell A2 in Sheet Consolidado to be the sum of Cell A2 of all the other sheets, and for the other cells respectivelly.
I propose the following: You create a sheet Consolidado from the template. You then fill the valueCells array with the list of cells you want to be summed up in the Consolidadosheet.
The code below then will go through the targeted sheets, and add the value from each cell in the array to an outputArray. After the targeted sheets are summed up, it is pasted to the Consolidado sheet
Sub CopyRangeFromMultiWorksheets()
Dim wb As Workbook
Dim sh As Worksheet
Dim DestSh As Worksheet
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set wb = ThisWorkbook
Set DestSh = wb.Sheets("Consolidado")
valueCells = Array("A2", "C2", "A4", "B4", "C4")
Dim outputArray As Double
ReDim outputArray(UBound(valueCells))
For Each sh In wb.Worksheets
If sh.Name <> DestSh.Name And sh.Name <> "Menu" And sh.Name <> "Infos" And sh.Name <> "Log Update" And sh.Name <> "Master" Then
For i = LBound(valueCells) To UBound(valueCells)
outputArray(i) = outputArray(i) + sh.Range(valueCells(i))
Next i
End If
Next sh
For i = LBound(valueCells) To UBound(valueCells)
DestSh.Range(valueCells(i)) = outputArray(i)
Next i
End Sub