Public Function getTextBetweenQuotes(ByVal fromText As String) As String
    Dim pReg As Object, pCheck As Object, firstStep As String
    Set pReg = CreateObject("VBScript.RegExp")
    pReg.IgnoreCase = True
    Set pCheck = CreateObject("VBScript.RegExp")
    pCheck.Global = True
    pCheck.Pattern = "[""“”'«""»]"
    pReg.Pattern = "[""“'«""](.+[”""'»])(?=\w| |$)"
    firstStep = pReg.Execute(fromText)(0).SubMatches(0)
    If pCheck.Execute(firstStep).Count Mod 2 = 1 Then
        firstStep = Left$(firstStep, Len(firstStep) - 1)
    End If
    getTextBetweenQuotes = Trim$(firstStep)
End Function

Public Function getTextBetweenQuotes(ByVal fromText As String) As String
    Dim pReg As Object, p
    Set pReg = CreateObject("VBScript.RegExp")
    pReg.IgnoreCase = True
    pReg.Pattern = """[^""]+"".+?([а-я]+)(?= ""[^""]+"")"
    getTextBetweenQuotes = pReg.Execute(fromText)(0).SubMatches(0)
End Function

let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"Дата", type datetime}, {"Должность", type text}, {"Идентификатор_сотрудника", type text}, {"Номер", Int64.Type}}),
    #"Sorted Rows" = Table.Sort(#"Changed Type",{{"Идентификатор_сотрудника", Order.Ascending}, {"Дата", Order.Ascending}}),
    #"Filled Down" = Table.FillDown(#"Sorted Rows",{"Должность", "Номер"})
in
    #"Filled Down"

Table.AddColumn(#"Changed Type", "Позиций в чеке", each let N = [номер чека], D = DateTime.Date([Дата]) in Table.RowCount(Table.SelectRows(#"Changed Type", each ([номер чека] = N and DateTime.Date([Дата]) = D) ) ), type number )