Sum rows and adding to the next row in R

Question

I would like to sum up the rows in Col1 for which the Col2 is equal to 0. And add the sum to the next value in Col1. I show an example below. I have many products in the dat