Sub LoopColumn()

    Dim CurRow As Integer
    Dim CurCol As Integer
    Dim Name As String

    CurRow = ActiveCell.Row
    CurCol = ActiveCell.Column

    Do
        Name = Cells(CurRow, CurCol).Value
        If Name = "" Then
            Exit Do
        End If
        CurRow = CurRow + 1
    Loop

End Sub

Sub CreateLink()

    Dim CurRow As Integer
    Dim CurCol As Integer
    Dim Name As String
    Dim Year As String

    CurRow = ActiveCell.Row
    CurCol = ActiveCell.Column

    Year = Cells(CurRow, CurCol + 1).Value
    Name = Cells(CurRow, CurCol).Value

    ActiveSheet.Hyperlinks.Add Anchor:=Cells(CurRow, CurCol - 1), Address:= _
        "", TextToDisplay:= _
        "Ññûëêà"

End Sub