Thanks!
Hi Rafael,
I think the problem is with rendering the Graphics3D with 4007223 cuboids in the notebook. I added a ; to suppress rendering and it completed successfully.
;
Automato3D = Graphics3D[Cuboid /@ Position[CA3D[23, 200, 50, 100, 12], 1]];
