Grid[MapAt[Identity@@StringReplace[#, (m__ ~~ l_ ~~ u_ ~~ r__) /; UpperCaseQ[u] && LowerCaseQ[l] :> m <> l <> "\n" <> u <> r] &, table21, {All, 3}], Frame -> All, Alignment -> Left, Background -> {None, {{LightOrange, White}}}] 
Suba Thomas
- 9k
- 1
- 19
- 33