Как сделать автоматически сгенерированный текст в пользовательской форме на основе таблицы?

Вы можете создать 2 подпрограммы в пользовательской форме и использовать метод поиска при изменении выпадающего списка. обратите внимание, что если у вас одинаковые имена в столбце F, это не сработает, и тогда вам нужно определить уникальный идентификатор для каждого элемента.

Private Sub comboName_Change()
Dim int_LR As Integer: int_LR = ActiveSheet.Cells(Rows.Count, 6).End(xlUp).Row '   find last row of table
Dim str_Name As String: str_Name = Me.comboName                                 '   look up this name
Dim rng_FindRange As Range                                                      '   search range

Set rng_FindRange = ActiveSheet.Range("F3:G" & int_LR).find(str_Name)
If Not rng_FindRange Is Nothing Then
    Me.txtDiscipline = ActiveSheet.Cells(rng_FindRange.Row, 7)
Else    '   If Not rng_FindRange Is Nothing
    Me.txtDiscipline = "Name not found"
End If  '   If Not rng_FindRange Is Nothing

End Sub

И когда пользовательская форма инициализируется

Private Sub UserForm_Initialize()
Dim int_LR As Integer: int_LR = ActiveSheet.Cells(Rows.Count, 6).End(xlUp).Row '   find last row of table

Me.comboName.Style = fmStyleDropDownList '   combobox list style
For i = 3 To int_LR '   loop adding items to combobox
    Me.comboName.AddItem ActiveSheet.Cells(i, 6)
Next i
End Sub