let
    Source = Table.FromColumns(
    {{
        [CustomerID = 13, Name = "Bob", Phone = "1234567"],
        [CustomerID = 14, Name = "Bo", Phone = "67"],
        [CustomerID = 17, Phone = "1567"],
        [CustomerID = 19, Name = "Bro", Phone = "1267"]
    }}),
    result = Table.ExpandRecordColumn(Source, "Column1", {"CustomerID", "Name", "Phone"})
in
    result

Set Items = myFolder.Items
Items.Sort "[ReceivedTime]", True
Set myItem = Items.GetFirst

let
    typeDef = Table.ToRows(Table.TransformColumns(Excel.CurrentWorkbook(){[Name="types"]}[Content], {"Type", each Expression.Evaluate(_, #shared)})),
    typed = Table.TransformColumnTypes(Excel.CurrentWorkbook(){[Name="Таблица"]}[Content], typeDef)
in
    typed

Public Sub RemoveDubs()
    Dim pDict As Object, vData As Variant
    Dim i As Long, LRow As Long
    LRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, 2).End(xlUp).Row
    vData = ActiveSheet.Range(ActiveSheet.Cells(1, 2), ActiveSheet.Cells(LRow, 2)).Value
    Set pDict = CreateObject("Scripting.Dictionary")
    For i = LBound(vData) To UBound(vData)
        If Not IsEmpty(vData(i, 1)) Then
            vData(i, 1) = Join(GetNonDictItems(vData(i, 1), pDict), ",")
        End If
    Next
    ActiveSheet.Range(ActiveSheet.Cells(1, 2), ActiveSheet.Cells(LRow, 2)).Value = vData
End Sub

Private Function GetNonDictItems(ByVal baseText As String, ByVal pDict As Object)
    Dim subStrs() As String, k As Long, nonDict As Object
    Set nonDict = CreateObject("Scripting.Dictionary")
    subStrs = Split(baseText, ",")
    For k = LBound(subStrs) To UBound(subStrs)
        If Not pDict.Exists(subStrs(k)) Then
            nonDict(subStrs(k)) = Empty
            pDict(subStrs(k)) = Empty
        End If
    Next
    GetNonDictItems = nonDict.Keys
End Function