Macro to create sub total as also inserting blank rows after each subtotal

Hi All,

I want create a macro that will subtotal of column E after change of value in column D. It will also insert two blank rows below the sub total rows.

exampls of spreadsheet that need to be calculate as follows:

please assume header name in row 1.

Security name address date ID Div Amount
aa ww 3/4/2009 ss 234
aa ww 4/5/2009 ss 235
bb er 5/6/2009 tt 456
bb er 7/6/2010 tt 777

thanks in advance

Sorry Friend,

I want a macro. After formatting data I need some more work to do which are basically some Formula based work. I don't think Pivot table can solve that.

Thanks

maybe like this

Please Login or Register  to view this content.

Originally Posted by oeldere

@Kalak

I get an faillure, if i test it on my data in #2.

The faillure line is:

Please Login or Register  to view this content.

It was tested on data in post#1, as requested, and worked without error.

After your post I downloaded your file and tried that. Got obvious error message (in Blad1) that can't move part of a pivot table. I didn't use pivot tables because they weren't requested. But inserting rows was requested.

So copied and pasted special (values) your blad1 data to your blad2. The code worked on the blad2 data without error.

Perhaps you should recheck your workings and/or try the code on the original posted data rather than first distorting it though a pivot table.

Thanks Friends,

It works fine.

Thanks again.