a = Subsets[Range[9], {3}];
b = Subsets[Complement[Range[9], #], {3}] & /@ a;
c = Flatten[MapThread[Tuples[{{#1}, #2}] &, {a, b}], 1];
n = DeleteDuplicates[
Sort@Append[#, Complement[Range[9], Flatten[#]]] & /@ c];
d = Table[Permutations /@ n[[i]], {i, Length@n}];
m = Flatten[
Table[Table[{d[[s, 1, i]], d[[s, 2, j]], d[[s, 3, k]]}, {i, 6}, {j,
6}, {k, 6}], {s, Length@d}], 3];
Length@m
60480
p = Table[FromDigits /@ m[[i]], {i, Length@m}]
This is what I got after I modified your code but still I am not sure this cover all possibilities..