Sub ReplaceURL()
    Dim arrB As Variant, arrC As Variant, arrI As Variant, arrJ As Variant
    Dim LastRow As Long, i As Long, n As Long
    Dim sURL As String
    
    With ActiveSheet
        If .FilterMode = True Then .ShowAllData
        LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
        arrB = .Range("B2:B" & LastRow).Value
        arrC = .Range("C2:C" & LastRow).Value
        arrI = .Range("I2:I" & LastRow).Value
        arrJ = .Range("J2:J" & LastRow).Value
    
        For i = LBound(arrB) To UBound(arrB)
            sURL = arrB(i, 1)
            For n = LBound(arrI) To UBound(arrI)
                If LCase(sURL) = LCase(arrI(n, 1)) Then
                    arrC(i, 1) = arrJ(n, 1)
                    Exit For
                End If
            Next n
        Next i
    
        .Range("C2").Resize(UBound(arrC), 1).Value = arrC
    End With
    
    MsgBox "Готово!", vbInformation, "Конец"
End Sub