Добавление динамической c строки таблицы с первой ячейкой в ​​качестве гиперссылки для вновь созданного имени листа

Question

У меня есть рабочая книга, которая содержит 3 вкладки.

1. «Новый студент» - ввод данных, который добавляет имя студента, преподавателя, дату начала и дату окончания
2. «Admin_Student» - Вкладка «Шаблон», которая содержит пустой шаблон информации, которую я хочу отслеживать для каждого учащегося
3. «Master Tracker» - Dynami c Таблица, которая будет отображать все данные учащегося и использовать формулы индекса для ссылки на данные каждого учащегося из их вкладка.

В настоящее время я пытаюсь написать процесс, который, когда новый студент добавляется на вкладку «Новый студент», вы можете нажать кнопку, чтобы запустить процедуру создания новой вкладки студента на основе на вкладке «Admin_Student» переименуйте вкладку на основе имени учащегося в диапазоне B3, а затем добавьте гиперссылку на следующую доступную ячейку таблицы в «Master Tracker». В настоящее время, с помощью приведенного ниже кода, я могу заставить вкладку ученика генерировать и добавлять гиперссылку, но мне трудно разобраться, как бы я это сделал, кроме созданной мной таблицы Dynami c, и затем выпадаю из списка. формулы для ссылки на новое имя листа, который был создан.

    Sub NewStudent()
    Dim WB As Workbook
    Dim wsToC As Worksheet
    Dim wsGen As Worksheet
    Dim rDest As Range

    Set WB = ActiveWorkbook
    Set wsToC = WB.Sheets("Master Tracker")
    Set wsGen = WB.Sheets("Admin_Student")

    Set rDest = wsToC.Cells(wsToC.Rows.Count, "A").End(xlUp).Offset(1)
                If rDest.Row < 3 Then Set rDest = wsToC.Range("A5")
            wsToC.Hyperlinks.Add Anchor:=rDest, _
            Address:="", _
            SubAddress:="'" & wsGen.Range("B3").Text & "'!A5", _
            TextToDisplay:=wsGen.Range("B3").Text
            Sheet3.Visible = True
            Sheet3.Select
            ActiveSheet.Copy After:=Worksheets(Sheets.Count)
            ActiveSheet.Name = Range("B3").Value