Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range, rB As Range, rF As Range
    Application.ScreenUpdating = False
    Set rB = Intersect(Лист2.Range("B:B"), Target)
    Set rF = Intersect(Лист2.Range("F:F"), Target)

    If Not rB Is Nothing Then
        Application.EnableEvents = False

        For Each cell In rB.Cells

            If Not IsEmpty(cell.Value) Then
                Sheets("Лист2").Hyperlinks.Add anchor:=cell.Offset(0, 4), Address:="http://" & cell.Offset(0, 1).Value, TextToDisplay:=cell.Offset(0, 0).Value
            End If

        Next cell

        Application.EnableEvents = True
    End If

    If Not rF Is Nothing Then
        Application.EnableEvents = False

        For Each cell In rF.Cells

            If Not IsEmpty(cell.Value) Then
                Sheets("Лист2").Hyperlinks.Add anchor:=cell.Offset(0, 2), Address:="http://" & cell.Offset(0, -3).Value, TextToDisplay:=cell.Offset(0, 0).Value
            End If

        Next cell

        Application.EnableEvents = True
    End If

    Application.ScreenUpdating = True
End Sub