Macro to insert rows

[snowhunter]

Hi all,
I have been trying to figgue out how to build a Macro that will insert two rows after a column called work center. Every time the work center changes from 1 to 2 or 2 to 3, a macro that can insert two blank rows after and add a subtotal in the total pounds field. For example:
A | B | G H I JKLMNO
Shift | Item | Job |Work Center|Total Pounds
a4 | abc | 123 | 1 | 54
a4 | bca | 213 | 1 | 26
a4 | abc | 123 | 2 | 43
a4 | bca | 213 | 2 | 66

would become:

Shift | Item | Job |Work Center|Total Pounds
a4 | abc | 123 | 1 | 54
a4 | bca | 213 | 1 | 26
80

a4 | abc | 123 | 2 | 43
a4 | bca | 213 | 2 | 66
|109

I hope this terrible layout comes across in the post, if not I will repost using another method. Perhaps two seperate macros? One for inserting rows after work center change and one to add subtotal of column H.
Thanks!
Chris

 

[Jonmo1]

Try the subtotals function from Data - Subtotals.
At each change in: Select Work Center
Use Function: Select Sum
Add subtotal to: Select - Total Pounds.

See below

Excel Workbook
	A	B	C	D	E
1	Shift	Item	Job	Work Center	Total Pounds
2	a4	abc	123	1	54
3	a4	bca	213	1	26
4	a4	abc	123	2	43
5	a4	bca	213	2	66
Original Data

Excel Workbook
	A	B	C	D	E
1	Shift	Item	Job	Work Center	Total Pounds
2	a4	abc	123	1	54
3	a4	bca	213	1	26
4				1 Total	80
5	a4	abc	123	2	43
6	a4	bca	213	2	66
7				2 Total	109
8				Grand Total	189
After Subtotals