Custom M Function to Create Metadata Summary for Selected Table

gistfile1.txt

(#"Select Table to Create Metadata Summary" as table) =>
  let
    Schema = Table.SelectColumns(
      Table.Schema(#"Select Table to Create Metadata Summary"), 
      {"Name", "Position", "TypeName", "Kind", "IsNullable"}
    ), 
    Profile = Table.Profile(#"Select Table to Create Metadata Summary"), 
    Join = Table.Sort(Table.Join(Schema, "Name", Profile, "Column"), {"Position", Order.Ascending}), 
    ReType = Table.TransformColumnTypes(
      Join, 
      {
        {"Position", Int64.Type}, 
        {"Count", Int64.Type}, 
        {"NullCount", Int64.Type}, 
        {"DistinctCount", Int64.Type}
      }
    ), 
    Remove = Table.RemoveColumns(ReType, {"Column"})
  in
    Remove