title: Sum into blank cell while summing all above until next blank cell, in Excel VBA
body: <p>I've got this spreadsheet in which I need to Sum up worked hours.
  In Column 'I' I've got all worked hours which I sorted through weeknumbers in row 'E' with the following loop I found somewhere on Google (can't remember who wrote it but it works).</p>
  
  <pre><code>Dim i, itotalrows As Integer
  Dim strRange As String
  
  itotalrows = ActiveSheet.Range("E20000").End(xlUp).Offset(1, 0).Row
  
  
  Do While i &lt;= itotalrows
      i = i + 1
      strRange = "E" &amp; i
      strRange2 = "E" &amp; i + 1
      If Range(strRange).Text &lt;&gt; Range(strRange2).Text Then
          Rows(i + 1).Insert
          itotalrows = ActiveSheet.Range("E20000").End(xlUp).Offset(1, 0).Row
          i = i + 1
      End If
  
  Loop
  </code></pre>
  
  <p>In the picture you can see one of the cells marked with "Total value of cells up
  "
  there's a blank every few rows with a cell on 'I' where the total value should go.</p>
  
  <p>Sheet Picture:</p>
  
  <p><a href="https://i.stack.imgur.com/5PWIZ.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/5PWIZ.png" alt="enter image description here"></a></p>