Help sorting in Excel

SergeiBaklan 

The is nothing special about the result; the point is that this was the first time I had ever put together M code using the advanced editor!

let
    Source = Excel.CurrentWorkbook(){[Name="tblNames"]}[Content],
    SortedList = List.Sort(
        List.Distinct(
            List.RemoveNulls(
                List.Union(
                    Table.ToColumns(Source)
                )
            ) 
        )
    ),
    n = 1+Number.IntegerDivide(List.Count(SortedList),4),
    LoadToTable = Table.FromColumns(
        List.Split(SortedList,n),
        Table.ColumnNames(Source)
    )
in
    LoadToTable

Thank you for the model code and guidance.