Code for Sub-Total command with rows changing in Macro

[danuguri]

Dear Sir,

I am trying to have a code (to be written for macro) for performing Sub-Totals in the column I excel sheet as a part of automation. The rows will be dynamic and No. of rows for each sub-total changes every time. The sub-total shall be based on certain criteria which will be in other columns. Manually we are filtering for blanks on B column and E column and inserting sub-total formula in I column for sum operation. The total no. of rows may be upto 5000 Lines or more and may be even as less as 100 rows. No. of sub-totals may also vary depending on the rows. Once the macro is run, it shall all perform all the sub-totals based on above explained criteria.

Can any one help.

Pls. see below small example.

	Slno.	SubItem	Description	UOM	Gross Qty	Changes in Prices	Final	Amount
BU111811947502HV00000	Main Item:BU111811947502HV00000 INSULATION ON HV COIL
BU111811947502HV00000		107140400100	P.B. GRADE-KPC:1x2000x3000mm	kg	10.6337	185.00	185	1967.23
BU111811947502HV00000		107140000150	P.B. 1.50 mm GRADE-KPC (IB-56	kg	24.2	116.70	116.7	2824.14
BU111811947502HV00000		107140400200	P.B. GRADE-KPC:2x2000x3000mm	kg	6.6	185.00	185	1221.00
BU111811947502HV00000		107140000300	P.B. 3.00 mm GRADE-KPC (IB-56	kg	9.9	116.70	116.7	1155.33
BU111811947502HV00000		107140000400	P.B. 4.00 mm GRADE-KPC (IB-56	kg	2.9334	122.84	122.84	360.34
BU111811947502HV00000		107140000500	P.B. 5.00 mm GRADE-KPC (IB-56	kg	2.5663	122.84	122.84	315.24
BU111811947502HV00000		107140000600	P.B. 6.00 mm GRADE-KPC(IB-56)	kg	5.5	122.84	122.84	675.62
BU111811947502HV00000		107100000080	P.B 0.80 mm GRADE-3	kg	0.7337	220.42	220.42	161.72
BU111811947502HV00000		BU1118119207140400150	P.B.GRADE-KPC:1.5X2000X3000mm	kg	1.65	116.70	116.7	192.56
BU111811947502HV00000		107140400300	P.B. GRADE-KPC:3x2000x3000mm	kg	22	185.00	185	4070.00
BU111811947502HV00000		BU1118119207020100001	HV IND RING : 709/581 , 35thk	nos	1	2323.83	2323.8329	2323.83
BU111811947502HV00000		BU1118119207020100002	HV IND.RING 2:709/581;35THK	Nos	1	2323.83	2323.8329	2323.83
BU111811947502HV00000								17590.85
BU111811947504CA00000	Main Item:BU111811947504CA00000 INSULATION AT CORE ASSEMBLY
BU111811947504CA00000		107140000400	P.B. 4.00 mm GRADE-KPC (IB-56	kg	15.18	122.84	122.84	1864.71
BU111811947504CA00000 Thanks in advance. Regards D Sampath Kumar								1864.71

<TBODY>
</TBODY><COLGROUP><COL><COL><COL><COL><COL span=2><COL><COL><COL></COLGROUP>