VBA Code to auto sum data

[MHamid]

Hello,

I have a count in column Q. After I insert a blank row, I would like to do a find for the blank cells in column Q and do a sum of the data above each blank cell.

For instance, each section is divided by each different fruits. Where the Total row is, that is where the total sum will be.
Column J Column Q
Apple 1
Apple 1
Apple 1
Apple 1
Apple 1
Apple Total 5
Banana 1
Banana 1
Banana 1
Banana Total 3
Cherry 1
Cherry 1
Cherry Total 2

Is this possible to do with vba code?

Thank you

 

[Fluff]

Change this

Range("Q" & Rows.Count).End(xlUp).Offset(1).Formula = "=sum(" & Range("P:P").SpecialCells(xlBlanks).Offset(, 1).Address & ")"

to

   With Range("Q" & Rows.Count).End(xlUp).Offset(1)
      .Formula = "=sum(" & Range("P2:P" & .row - 1).SpecialCells(xlBlanks).Offset(, 1).Address & ")"
   End With

 

[MHamid]

Hello,

Worked perfectly!! Thank you so much for your help.


Thank you

 

[Fluff]

Glad to help & thanks for the feedback