Auto sum formula next to particular text

[arif]

i have data sheet

then i want to add sum of total data in the next cell of the cell where written "Subtotal"

is there any way to that using excel formula

data sheet is attached here

 

[Somendra Misra]

Hi Arif,

Are the rs. entry manual in the cell?

Regards,

 

[Hui]

B4: =IF(A4="Subtotal",SUM($B$3:B3),"")
Copy down
Then enter data in the cells above
problem is if you shift Subtotal Up it wont work as the formula will be gone

If you still want a subtotal under those conditions that would require VBA

Pls advise

 

[arif]

Can u plz help me out thr VBA code plz

 

[Somendra Misra]

Hi Arif,

See this file, the file will work like this, where ever on Sheet1 you will enter Subtotal next cell with get the addition of all numbers from 4th row of the next column to last row with number.

See if this meet your requirement.

Regards,