'при активном листе Сводная
Sub iDolgSemestr()
Dim i As Long
Dim iLastRow As Long
Dim iLR As Long
Dim DolgSemestr As String
Dim FoundDolgSemestr As Range
Dim Group As String
Dim FoundLD As Range
Dim FoundLD_Row As Long
Dim j As Integer              'для цикла по семестрам в строке 1
Dim n As Integer
iLastRow = Cells(Rows.Count, "B").End(xlUp).Row
  For i = 2 To iLastRow       'цикл по номерам ЛД на листе Сводная
    Group = Cells(i, "G")     'группа и соответствующее имя листа
    DolgSemestr = Range("H1") 'Кол-во долгов Первый семестр, потом  сделать цикл по j
    With Worksheets(Group)
      Set FoundDolgSemestr = .Columns("F").Find(DolgSemestr, , xlValues, xlWhole)
        n = FoundDolgSemestr.MergeArea.Count
      iLR = FoundDolgSemestr.Offset(n).End(xlDown).Row
        'ищем номер ЛД на листе группы в соответствующем семетру диапазоне
      Set FoundLD = .Range("E" & FoundDolgSemestr.Row + n & ":E" & iLR).Find(Cells(i, "B"), , xlValues, xlWhole)
      FoundLD_Row = FoundLD.Row     'нашли номер строки с ЛД на листе группы
    
    'берете в этой строке нужное значение и переносите на лист Сводная
    
    End With
  Next
End Sub

'при активном листе Сводная
Sub iDolgSemestr()
Dim i As Long
Dim iLastRow As Long
Dim iLR As Long
Dim DolgSemestr As String
Dim FoundDolgSemestr As Range
Dim Group As String
Dim FoundLD As Range
Dim FoundLD_Row As Long
Dim j As Integer              'для цикла по семестрам в строке 1
Dim n As Integer
Application.ScreenUpdating = False
iLastRow = Cells(Rows.Count, "B").End(xlUp).Row
Range("H2:O" & iLastRow).ClearContents
For j = 8 To 15
   DolgSemestr = Cells(1, j)  'Кол-во долгов Первый семестр, потом  сделать цикл по j
  For i = 2 To iLastRow       'цикл по номерам ЛД на листе Сводная
    Group = Cells(i, "G")     'группа и соответствующее имя листа
    With Worksheets(Group)
      Set FoundDolgSemestr = .Columns("F").Find(DolgSemestr, , xlValues, xlWhole)
      If Not FoundDolgSemestr Is Nothing Then
          n = FoundDolgSemestr.MergeArea.Count              'кол-во объединенных ячеек
        iLR = FoundDolgSemestr.Offset(n).End(xlDown).Row    'последняя строка в диапазоне
        'ищем номер ЛД на листе группы в соответствующем семестру диапазоне
      Set FoundLD = .Range("E" & FoundDolgSemestr.Row + n & ":E" & iLR).Find(Cells(i, "B"), , xlValues, xlWhole)
        If Not FoundLD Is Nothing Then
          FoundLD_Row = FoundLD.Row     'нашли номер строки с ЛД на листе группы
          'берете в этой строке нужное значение и переносите на лист Сводная
          Cells(i, j) = .Cells(FoundLD_Row, "F")
        End If
      End If
    End With
  Next
Next
Application.ScreenUpdating = True
End Sub