list manipulation – Creating a table in a while loop

I am probably missing something obvious, but I am stuck. I write a code on Mathematica for Newton's method and I need to print a table for the iteration, root approximation, residual and absolute value of the difference between the current and previous approximation. I already set a threshold and I am almost finished. However, I can not print the table. I've printed the values ​​for each iteration in separate lists. I want to print them in tuples of 4 in order to create the array and use the Grid command. I can not find an order that does it. Here is my code and my exit. I just need my values ​​in a table. I attach my code as an image to this message. PLEASE HELP!
Thank you enter the description of the image here