Fold[Insert[#1, Last[#2], {First[#2], -1}] &, a, b]
↧
Answer by Suba Thomas for Adding elements to some sublists of unequal length
↧
Fold[Insert[#1, Last[#2], {First[#2], -1}] &, a, b]