VBA为多个Excel工作表添加摘要表并添加小计

I have multiple sheet of data that include subtotals for groups of data based on a particualr column. Now I need a vba code that would take the subtotal from x number of sheets and copy the totals to a single summary sheet. As you can see below the code needs to insert a row for the subtotals of "SheetName1" and fill in the subtotals for Column3 Values(A, B and C) of "SheetName1" and the same for the rest of the sheets:I have multiple sheet of data that include subt