Grid[MapAt[StringReplace[#, (l_ ~~ u_) /; UpperCaseQ[u] && LowerCaseQ[l] :> l <> "\n" <> u] &, table21, {All, 3}], Frame -> All, Alignment -> Left, Background -> {None, {{LightOrange, White}}}] 
Update
Based on comments, I think you can start defining a set such as
committees = {"Agriculture", "Appropriations", "Armed Services", "Budget", "Climate Change", "Education and Labor", "Ethics", "Energy and Commerce", "Financial Services", "Foreign Affairs", "Homeland Security", "Intelligence", "Judiciary", "Modernization of Congress", "Natural Resources", "Oversight and Reform", "Science, Space, and Technology", "Small Business", "Transportation and Infrastructure", "Veterans' Affairs", "Ways and Means", "Small Business", "Science, \nSpace, and Technology" -> "Science, Space, and Technology", "Small \nBusiness" -> "Small Business", "Veterans' \nAffairs" -> "Veterans' Affairs", "Energy and \nCommerce" -> "Energy and Commerce", "Intelligence" -> "Permanent Select Committee on Intelligence"}; and then use that as follows
Grid[MapAt[StringRiffle[StringCases[#, committees], "\n"] &, table21, {All, 3}], Frame -> All, Alignment -> Left, Background -> {None, {{LightOrange, White}}}] 