let
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    to = Table.SelectRows(from, each ([Актуальность] = "Да" or [Отметка об участии] = "да")) // актуальные
in
    to

Function Get_AGA_RE(rng As Range, sFind$, Optional CaseIgnore As Boolean) As Long
    Dim x, arr, a&
    Dim s$, REci    As RegExp, cell

    Set REci = New RegExp
    REci.Global = True
    REci.Pattern = "(?=(" & sFind & "))"
    REci.IgnoreCase = CaseIgnore

    For Each cell In rng:
        s = s & cell.Value2

    Next cell
    If REci.Test(s) Then Get_AGA_RE = REci.Execute(s).Count

End Function

(?=(AGA))

=ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ФИЛЬТР.XML(ПОДСТАВИТЬ(ВЕБСЛУЖБА(ПОДСТАВИТЬ(C1;"ea20/view/common-info.html";"rss"));"<description />";"");"//item[1]/description");"<br/>";СИМВОЛ(10));"/";"");"<strong>";"")

    ...
    Custom1 = Table.Buffer(Table.Profile(Source)),
    #"Filtered Rows" = Table.SelectRows(Custom1, each [Count]=[NullCount]),
    ...