A simpler version.
p[list_, n_] :=
Module[{res = Partition[list, UpTo[Ceiling[Length[list]/n]]]},
Join[res, Table[{}, n - Length[res]]]]
A simpler version.
p[list_, n_] :=
Module[{res = Partition[list, UpTo[Ceiling[Length[list]/n]]]},
Join[res, Table[{}, n - Length[res]]]]