if Left$(stroka,2)=", " then stroka=Mid$(stroka,3)

Const iCol& = 4
Dim k&
With ThisWorkbook.WorkSheets("Лист_для_экспериментов")
  For k = .UsedRange.Row To .UsedRange.Row + .UsedRange.Rows.Count - 1
    If Left$(.Cells(k, iCol).Value2, 2) = ", " Then _
        .Cells(k, iCol).Value2 = Mid$(.Cells(k, iCol).Value2, 3)
  Next k
End With

Const sPosle$="Эксплуатация базовой станции "
Dim sSkopirovat$, stroka$
' *** если 'Эксплуатация базовой станции ' может быть не только в начале строки
sSkopirovat = Mid$(stroka, InStr(1, stroka, sPosle)+Len(sPosle)+1)

' *** если 'Эксплуатация базовой станции ' встречается только в начале строки
sSkopirovat = Mid$(stroka, Len(sPosle)+1)

Sub BS()
sPosle$ = "Использование базовой станции "
Dim sSkopirovat$, stroka$
Dim i&, k&, r&

' если какие-то вычисления можно вынести за цикл, лучше это сделать
r = Len(sPosle) + 1

For i = 1 To 534272
  stroka = Cells(i, 2)
  k = InStr(1, stroka, sPosle)
  If k > 0 Then
    Cells(i, 3) = Mid$(stroka, k + r)
  Else
    Cells(i, 3) = stroka
  End If
Next i
End Sub