Удалить из ячеек столбцы C текст записанный в ячейках столбца B - VBA

Формулировка задачи:

Добрый день! Имеется excel файл напечатанного ниже формата:

Столбец "B"

- название;

Столбец "C"

- путь к названию. Напишите пожалуйста макрос который удалит из ячеек столбцы "C", текст написанный в ячейках столбца "B". В каждом из столбцов заполнено по 50 тыс. строк. Пример файла исходник: [B1] Дождь/Снег/Вихрь/ Вода, [C1] Мини/Атлас /Дождь/Снег/Вихрь/ Вода, Пример файла необходимый результат: [B1] Дождь/Снег/Вихрь/ Вода, [C1] Мини/Атлас / Прикрепляю файл во вложении:

Решение задачи: «Удалить из ячеек столбцы C текст записанный в ячейках столбца B»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub A()
Dim S As String, S1 As String, I As Integer, K As Integer
Application.ScreenUpdating = False
For I = 1 To 50000
  S = Cells(I, 3)
  K = InStrRev(S, Cells(I, 2))
  If K > 0 Then
    S1 = ""
    If K > 1 Then S1 = Left(S, K - 1)
    K = K + Len(Cells(I, 2))
    If K - 1 < Len(S) Then S1 = S1 & Mid(S, K)
    Cells(I, 3) = S1
  End If
Next
Application.ScreenUpdating = True
End Sub