VBA Добавить лист сводки для нескольких листов Excel и добавить промежуточные итоги

Question

У меня есть несколько листов данных, которые включают промежуточные итоги для групп данных на основе столбца particualr. Теперь мне нужен код vba, который займет промежуточный итог от x количества листов и скопирует итоговые данные на один сводный лист. Как вы можете видеть ниже, код должен вставить строку для промежуточных итогов «SheetName1» и заполнить промежуточные итоги для значений столбца 3 (A, B и C) «SheetName1» и то же самое для остальных листов:

Answer 1

Sub tester() 

Dim sht As Worksheet, rw As Range, c As Range, i As Long 

    Set rw = Sheets("Summary").Cells(Rows.Count, 1).End(xlUp) _ 
       .Offset(1, 0).EntireRow 

    For Each sht In ActiveWorkbook.Worksheets 
     If sht.Name <> "Summary" Then 
      i = 2 
      rw.Cells(1).Value = sht.Name 
      Set c = sht.Range("C1") 
      Do While c.Value <> "" 
       If c.Value = "Total" Then 
        rw.Cells(i).Value = c.Offset(0, 1).Value 
        i = i + 1 
       End If 
       Set c = c.Offset(1, 0) 
      Loop 
      Set rw = rw.Offset(1, 0) 
     End If 
    Next sht 


End Sub