Copy and pste value

[sujittalukde]

I need a macro which will copy the row containg the word "Carried over" and paste it to next row as "Brought Forward" However if below the Carried over, the word "Grand Total" exist, then no such copy paste is required.
A sample shot is given below for better understanding.

In case some more clarification required, do let me know.

CarriedOverBroughtFwd.xls
	A	B	C	D
1	Names	Amount
2	a	3
3	b	4
4	c	5
5	Carried over	12	This is the page sub total
6	Brought Forward	12	This is the copy of above row containing "carried over"
7	e	9
8	f	8
9	g	7
10	Carried over	24	This is the page sub total
11	Brought Forward	24	This is the copy of above row containing "carried over"
12	h	7
13	i	4
14	j	3
15	Carried over	14	This is the page sub total
16	Grand Total	50	Since below the Carried over, grand total so no
17			paste value is required from above row
Sheet1

 

[sujittalukde]

Dear DP, swaped the line and running correctly.

Dear sosasola, your code is not giving the desired result.Anyway thanks for the effort.

One more thing:

Can this be modified in such a manner that:

The code will insert page break above the "Brought Forward " so that "brought Forward" will appear at the top of each page..

If this can be provided, it will be great help to me.

 

[sujittalukde]

Please Help!!!!!