Macro to delete rows if sum of rows is greater than a given value

You could just make a pivot table from that - with Length as the row field, and Width Org as the data field, I get


Row Labels Sum of WIDTH ORD
5,526 99.75
5,535 113
5,546 220
5,548 108.75
5,558 117.1875
5,560 99.75
5,564 326.9375
5,565 227.75
5,568 326.9375
5,585 91.3125
5,589 217.5
5,882 117.1875
5,945 117.1875
5,949 117.1875
6,027 117.1875
6,051 117.1875
6,060 117.1875
6,080 117.1875
6,162 117.1875
6,300 113.6875
6,390 113.6875
6,450 108.5
Grand Total 3222.25

In any event, your macro should not be using Integers - use Double for the sum and Long for the indexing.

If you need to have some of your values reported in two blocks, then use the subtotal utility, which can sum column A based on changes in column B. The underlying data can be hidden as an option, like so:

Capture.JPG