Проблемы с для и для каждого цикла

Question

Я устанавливаю цикл, и я не знаю, какой код вставлять.

Ниже код выполняется, но в конце все ячейки, в которые вставлена ​​гиперссылка, показывают ячейку 173, когда должнабыть ссылкой на ячейку 32 в первой ячейке, затем ячейку 47 во второй и так далее.Я вижу проблему, но не знаю, что делать.

Sub Hyperlink()

Dim rng As Range
Dim cell As Range
Dim t1 As ListObject
Set t1 = Range("Testtbl").ListObject
Dim i As Integer
Dim p As String

Set rng = Range("CourseName")

For Each cell In rng
    For i = 1 To t1.ListRows.Count
        If t1.ListColumns("UnLockedField").DataBodyRange(i) = "H" Then
            p = t1.ListColumns("UnLockedField").DataBodyRange(i).Address

            With cell
                .Hyperlinks.Add Anchor:=cell, _
                    Address:="", _
                    SubAddress:=p
            End With
        End If
    Next i
Next cell
End If
0:
End Sub

Я надеюсь, что каждая ячейка в диапазоне будет иметь свою ссылку на ячейку, к которой мне нужно перейти.