VBA Неопределенные циклы, для извлечения данных и превращения в базу данных

Question

У меня есть лист посещаемости, который начинается в строке 8. В столбце B указан уникальный код (SID), который помечает человека в базе данных. В столбце D8: некоторая точка является датой в каждой ячейке. В диапазоне D9: конец данных, есть номера, которые отслеживают посещаемость 60 классов (1 класс на листе). Я работаю над созданием сводной таблицы, в которой каждый раз, когда кто-либо посещает программу, будет указываться идентификатор безопасности, чтобы указать дату посещения. В настоящее время у меня завершено полное форматирование сводной таблицы, а также даны данные в столбце D:G (изображение показано ниже), но я недостаточно квалифицирован или знаю правильные вопросы, чтобы задать цикл, который просматривает все 60 листов и объединяет их с данными (входами) в одно резюме. Если человек подписался 10 раз, он должен появиться в сводке 10 раз. Любое руководство будет очень благодарным. Я добавил картинки, но не знаю, отображаются ли они. Это то, что я до сих пор

 For x = LBound(myArray) To UBound(myArray)
    Set sht = Worksheets(myArray(x))
    sht.Activate
    With Content_sht


      ' Edits Column 1: I need this to display SID numbers of those that attended SI sessions

      .Cells(x + 2, 1).Value = x

      ' Edits Column 2: I need this to display the Dates that were attended numbers of those that attended SI sessions
       Range("B1") = Format(date_test, "mm/dd/yy")
      .Cells(x + 2, 2).Formula = "='" & sht.Name & "'!A1"

      ' Edits Column 3: I need this to display the Time that the student spent in the session reflected by the date

    .Cells(x + 2, 3).Formula = "='" & sht.Name & "'!B1"

    ' Edits Column 4: I need this to display the Subject of the class. I only want it to dispay when the session is reflected with a SID

    .Cells(x + 2, 4).Formula = "='" & sht.Name & "'!B2"

    ' Column 5: Displays the number of visits using a countif function that autofills down

    .Cells(x + 2, 5).FormulaR1C1 = "=COUNTIF(C[-4],RC[-4])"

   '   Find the last filled row in column E

Range("D3:E3").AutoFill Range("D3:E" & Range("E2").End(xlDown).Row)


    ' Edits Column 6: Displays Campus. I only want it to display when the session is reflected

    .Cells(x + 2, 6).Formula = "='" & sht.Name & "'!B6"

     ' Edits Column 7: Program. I only want it to display when the session is reflected

    .Cells(x + 2, 7).Formula = "='" & sht.Name & "'!B7"
    End With
  Next x