CharacterTable[m_] := 

 Table[DirichletCharacter[m, j, n], {j, EulerPhi[m]}, {n, 0, m - 1}]

CharacterGrid[m_] := 

 Labeled[Text@

   TraditionalForm@

    Grid[ArrayFlatten[{{{{Row[{\[Chi][n], n}, "\\"]}}, {Table[

          j, {j, 0, m - 1}]}}, {Table[{Subscript[\[Chi], i][n]}, {i, 

          EulerPhi[m]}], CharacterTable[m]}}], Dividers -> All, 

     Spacings -> 1], Text@Row[{"Modulus ", m}]]

Manipulate[CharacterGrid[m], {{m, 11, "Modululs"}, 1, 12, 1}, 

 SaveDefinitions -> True]