Function Skobki(cell As String)
 With CreateObject("VBScript.RegExp")
   .Global = True
   .IgnoreCase = True
   .Pattern = " \((.+)\)"
    If .test(cell) Then
     Skobki = .Execute(cell)(0).submatches(0)
    Else
     Skobki = ""
    End If
  End With
End Function

Function iNado(cell As String) As String
Dim arr
Dim i As Integer
Dim temp As String
 With CreateObject("VBScript.RegExp")
   .Global = True
   .IgnoreCase = True
   arr = Array("\(.+\)", "\d+(,\d)?%", "\d[\.,]\d+ ?Л")
  temp = cell
   For i = 0 To UBound(arr)
    .Pattern = arr(i)
    iNado = .Replace(temp, "")
    temp = iNado
   Next
 End With
End Function