Automatically collapse rows and columns that sum to 0. Code running infinitely

Question

My code is below.My objective is to automatically group and collapse rows where the sum of a certain range in those columns and rows = 0. It runs indefinitely and I am not