let
    fn = (source, prefix) => 
    let
        typed = Table.SelectColumns(source, {"Barcode", "Name", "Price", "Available"}) ,
        prefixed = Table.PrefixColumns(typed, prefix)
    in
        [source = prefixed, joinCols = List.Range(Table.ColumnNames(prefixed), 0, 2)],
    cfo = fn(Excel.CurrentWorkbook(){[Name="cfo_group_ru"]}[Content], "cfo"),
    toy = fn(Excel.CurrentWorkbook(){[Name="toymart_ru"]}[Content], "toy"),
    
    join = Table.Join(cfo[source], cfo[joinCols], toy[source], toy[joinCols], JoinKind.FullOuter),
    setName = Table.AddColumn(join, "Name", each if [#"cfo.Name"] = null then [#"toy.Name"] else [#"cfo.Name"]),
    setBarcode = Table.AddColumn(setName, "Barcode", each if [#"cfo.Barcode"] = null then [#"toy.Barcode"] else [#"cfo.Barcode"]),
    #"Removed Columns" = Table.RemoveColumns(setBarcode,{"cfo.Barcode", "cfo.Name", "toy.Barcode", "toy.Name"}),
    #"Reordered Columns" = Table.ReorderColumns(#"Removed Columns",{"Name", "Barcode", "cfo.Price", "cfo.Available", "toy.Price", "toy.Available"})
in
    #"Reordered Columns"

let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    grouped = Table.Group(Source, {"Последовательность"}, {{"temp", 
        each Table.AddColumn(Table.AddIndexColumn(_, "id", 0), "Последовательность2", each [Последовательность] + [id]),
        Table.Type
    }}, GroupKind.Local),
    return = Table.ExpandTableColumn(grouped, "temp", {"Последовательность2"})
in
    return

Public Sub GetNonExistedNumbers()
    Dim lRow As Long, vData() As Variant
    Dim vOut() As Long, i As Long
    Dim vCheck() As Long, pSheet As Worksheet
    Dim vMin As Long, vMax As Long
    Set pSheet = ActiveSheet
    lRow = pSheet.Cells(pSheet.Rows.Count, 1).End(xlUp).Row
    vData = pSheet.Range(pSheet.Cells(1, 1), pSheet.Cells(lRow, 1)).Value
    vMin = Application.Min(vData)
    vMax = Application.Max(vData)
    ReDim vCheck(vMin To vMax)
    For i = 1 To UBound(vData)
        vCheck(vData(i, 1)) = 1
    Next
    ReDim vOut(1 To UBound(vData), 1 To 1)
    lRow = 0
    For i = vMin To vMax
        If vCheck(i) = 0 Then
            lRow = lRow + 1
            vOut(lRow, 1) = i
        End If
    Next
    Set pSheet = ActiveWorkbook.Worksheets.Add
    pSheet.Cells(1, 1).Resize(lRow, 1).Value = vOut
End Sub

Public Function SwitchYOE(ByVal InitText As String)
    Dim arrOut() As String, char As Object
    Static pReg As Object
    Dim i As Long, k As Long, pos As Long, oldChar As String, Chars As Object
    If pReg Is Nothing Then Set pReg = CreateObject("VBScript.RegExp"): pReg.Global = True: pReg.IgnoreCase = True: pReg.Pattern = "е"
    InitText = Replace$(Replace$(InitText, "ё", "е", Compare:=vbBinaryCompare), "Ё", "Е", Compare:=vbBinaryCompare)
    Set Chars = pReg.Execute(InitText)
    ReDim arrOut(0 To 2& ^ Chars.Count - 1)
    arrOut(0) = InitText
    pos = 0
    For i = 1 To UBound(arrOut)
        k = 0
        Set char = Chars(k)
        oldChar = Mid$(InitText, char.FirstIndex + 1, 1)
        Do While LCase$(oldChar) = "ё"
            Mid$(InitText, char.FirstIndex + 1, 1) = IIf(oldChar = "Ё", "Е", "е")
            k = (k + 1) Mod Chars.Count
            Set char = Chars(k)
            oldChar = Mid$(InitText, char.FirstIndex + 1, 1)
        Loop
        Mid$(InitText, char.FirstIndex + 1, 1) = IIf(oldChar = "Е", "Ё", "ё")
        pos = pos + 1
        arrOut(pos) = InitText
    Next
    SwitchYOE = arrOut
End Function

Public Sub DeleteRightSheets()
    Dim aSheet As Object, Ids() As Long, i As Long
    Set aSheet = ActiveWorkbook.ActiveSheet
    If aSheet.Index < ActiveWorkbook.Sheets.Count - 1 Then
        ReDim Ids(1 To ActiveWorkbook.Sheets.Count - aSheet.Index - 1)
        For i = aSheet.Index + 1 To ActiveWorkbook.Sheets.Count - 1
            Ids(i - aSheet.Index) = i
        Next
        Application.DisplayAlerts = False
        ActiveWorkbook.Sheets(Ids).Delete
        Application.DisplayAlerts = True
    End If
End Sub