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)