Adding extra column to an existing table [duplicate]

Question

Suppose I have following table-

 1   5   8
 2   6   9
 3   7   10
 0   0   0

Now, I want to add another column by exporting a data file. Suppose contents of that data file are-

 11
 12
 13
 54

I want to merge these two tables to look something like-

 1   5   8    11
 2   6   9    12
 3   7   10   13

I want to delete that row where elements of first table are all zero. I tried Join command but It is not working.

Answer 1

one way might be

 (mat = {{1, 5, 8}, {2, 6, 9}, {3, 7, 10}, {0, 0, 0}}) // MatrixForm

 mat = Insert[Transpose[mat], {11, 12, 13, 54}, -1];
 (mat = Transpose[mat]) // MatrixForm

  (mat=DeleteCases[mat, {0, 0, 0, _}]) // MatrixForm

Answer 2

a = Table[i + j*i, {i, 1, 4}, {j, 1, 3}];

2   3   4
4   6   8
6   9   12
8   12  16


b = Transpose@Join[Transpose@a, {{1, 1, 1, 1}}]

2   3   4   1
4   6   8   1
6   9   12  1
8   12  16  1