Function GetOrg(rngTxt As Range)
Dim s As String, a
s = rngTxt.Value
s = Replace(s, "«", """") 'меняем неправильные кавычки
s = Replace(s, "»", """") 'тоже
a = Split(s, """") 'разбиваем в массив по кавычкам a(0) до кавычек, a(1) после первой кавычки, a(2) после второй и т. д.
If UBound(a) Then GetOrg = a(1) ' если кавычки были, то нам нужно то, что после первой
End Function

Function GetAA(rngTxt As Range)
Dim s As String, sRes As String, a, x, aSpl
s = rngTxt.Value
a = Array("RA. RU.", "RA.RU.", "РОСС RU.") ' список признаков АА
For Each x In a
  If InStr(1, s, x, 1) Then
    sRes = x & Split(Split(s, x)(1), " ")(0) ' если есть, то бьем по признаку, потом по пробелам
    Exit For
  End If
Next
sRes = Replace(sRes, ")", "") ' заменяем на пустоту ненужные возможные знаки
sRes = Replace(sRes, ";", "")
sRes = Replace(sRes, ",", "")
GetAA = sRes
End Function