copy data from sheet to two sheets based on match sheet name

[Hasson]

Hello
I want copying data from INV_PUR sheet to REC & DE sheets based on matching sheet name inside cell D12 if D12 is matching with sheet name REC then

the original data

M.xlsm
	A	B	C	D	E	F	G	H	I
8
9					CLIENT
10					CVF12
11				NAME
12				REC
13						INV NO
14						DES100
15
16
17
18		ITEM	BATCH	GOOD-SST	TT-VV	ART-II	QTY	UNIT	TOTAL
19	1	1	BTR-11	CDR1	VBF2	BNHY	20.00	10.00	200.00
20		2	BTR-12	CDR2	VBF3	BNHY	20.00	5.00	100.00
21		TOTAL							300.00
INV_PUR

Cell Formulas
Range	Formula
I19:I20	I19	=G19*H19
I21	I21	=SUM(I19:I20)

M.xlsm
	A	B	C	D	E
1	DATE	INV	NAME	DEBIT	CREDIT
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
REC

should copy from INV_PUR sheet (Cells F14,E10,i21) to REC sheet in columns B,C,D .
as to column A should populate date automatically , I21 is not fixed will be changed so should search for TOTAL word in column B and then copy the adjacent value for TOTAL word in column I
result should be

M.xlsm
	A	B	C	D	E
1	DATE	INV	NAME	DEBIT	CREDIT
2	15/04/2023	DES100	CVF12	300.00
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
REC

and should clear INV_PUR sheet for (Cells F14,E10,i21) & B18 :I (before TOTAL row to become like this

MM with corrected CBs v04 a.xlsm
	A	B	C	D	E	F	G	H	I	J
9					CLIENT
10
11				NAME
12
13						INV NO
14
15
16
17
18		ITEM	BATCH	GOOD-SST	TT-VV	ART-II	QTY	UNIT	TOTAL
19	1								0.00
20									0.00
21		TOTAL							0.00
22
INV_PUR

Cell Formulas
Range	Formula
I19:I20	I19	=G19*H19
I21	I21	=SUM(I19:I20)

as to DE sheet the only difference should copy TOTAL value in column E
example

M.xlsm
	B	C	D	E	F	G	H	I
9				CLIENT
10				AHASS
11			NAME
12			DE
13					INV NO
14					ASDF100
15
16
17
18	ITEM	BATCH	GOOD-SST	TT-VV	ART-II	QTY	UNIT	TOTAL
19	1	BTR-11	CDR1	VBF2	BNHY	20.00	15.00	300.00
20	2	BTR-12	CDR2	VBF3	BNHY	20.00	10.00	200.00
21	3	BTR-13	CDR3	VBF4	BNHY	20.00	10.00	200.00
22	TOTAL							700.00
INV_PUR

Cell Formulas
Range	Formula
I19:I21	I19	=G19*H19
I22	I22	=SUM(I19:I21)

M.xlsm
	A	B	C	D	E
1	DATE	INV	NAME	DEBIT	CREDIT
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
DE

result

M.xlsm
	A	B	C	D	E
1	DATE	INV	NAME	DEBIT	CREDIT
2	15/04/2023	ASDF100	AHASS		700.00
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
DE

M.xlsm
	A	B	C	D	E	F	G	H	I
9					CLIENT
10
11				NAME
12
13						INV NO
14
15
16
17
18		ITEM	BATCH	GOOD-SST	TT-VV	ART-II	QTY	UNIT	TOTAL
19	1
20
21
22		TOTAL							0.00
INV_PUR

Cell Formulas
Range	Formula
I22	I22	=SUM(I19:I21)