for i = 1 to ubound(temp_data)
if range("A" & i) <> range("A" & i + 1) then rows(i +1).insert
for j = 1 to ubound(temp_data)
if range("A" & j) <> range("A" & j + 1) then
myrow = j
exit for
end if
next j
range("B" & i +1).formula = ="sum(R[-1]:R" & myrow &")"
end if
next i