VBA Not Sorting Properly

[phelbin]

I'm using the following code to create subsections and subtotals based on the value in column A. But for some reason it isn't sorting properly with this data set (see attached sample file). It works about 80% of the time, but it has trouble when two sections in a sequence have only one value. It'll lump the top one with the section above it.

Please Login or Register  to view this content.

Any ideas?


Thanks!!

[jindon]

Looks the one I wrote in somewhere
1) Change

Please Login or Register  to view this content.

to

Please Login or Register  to view this content.

2) Change

Please Login or Register  to view this content.

to

Please Login or Register  to view this content.

[phelbin]

It's still not sorting quite right. For instance, this set of values:

1306050
1306050
1306872
1306876
1306903
1306903
1306903

Should be split up like this:

1306050
1306050


1306872


1306876


1306903
1306903
1306903

But it's actually coming out like this:

1306050
1306050


1306872




1306876
1306903
1306903
1306903

It's inserting the correct number of rows, but it isn't separating the numbers properly.

[jindon]

Are you talking about same file?

[phelbin]

That worked. I just had one number off in the formula on mine.

Thanks for your help, Jindon!