VBA Excel нужна помощь

Место_расположения_файла = "L:\Рабочая папка\Нужное\SO4\Архив"
Первый_слеш = InStr(Место_расположения_файла, "\")'для информации
Последний_слеш = InStrRev(Место_расположения_файла, "\") 'Rev - Оборот
'InStrB используется с бинарными данными, помещенными внутрь строковой переменной
'вместо того, чтобы возвратить позицию первого символа вхождения одной строки в дру-гую, InStrB возвращает позицию первого байта
Позиция_первого_байта = InStrB(Место_расположения_файла, "\")

Столбец = "W"
Последняя_заполненная_строка_в_столбце = Cells(Rows.Count, Столбец).END(xlUp).Row

Columns("C:C").Select
    ActiveCell.Replace What:="http://", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        
    Columns("C:C").Select
    ActiveCell.Replace What:="www.", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        
    Columns("C:C").Select
    ActiveWorkbook.Worksheets("Ëèñò2").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Ëèñò2").Sort.SortFields.Add Key:=Range("C1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Ëèñò2").Sort
        .SetRange Range("B1:C7529")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 
For i = 1 To 7529
x = InStr(ActiveSheet.Rows(i).Cells(3).Value, "/")
If x <> 0 Then ActiveSheet.Rows(i).Cells(3).Value = Left(ActiveSheet.Rows(i).Cells(3).Value, x)
Next
 
Columns("C:C").Select
    Selection.Replace What:="/", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

y = i + 1
f = StrComp(ActiveSheet.Rows(i).Cells(3).Value, ActiveSheet.Rows(y).Cells(3).Value, vbTextCompare)