Remove blank cell in sum VBA

Hello - I am having an issue with a formula in my spreadsheet. When I add data to the sheet, the formula correctly calculates the sum in the last cell. However, in the rest of the sheet, it leaves a blank cell after calculating the sum.
Attached screenshot and file.

Does this work for you?

Please Login or Register  to view this content.

Thank you so much ByteMarks. It is very helpful.