Inserting a sheet row based on condition

Hello,

I've been experimenting with Macro's and VB for a little time and created some easy functions and modification, but this is just way beyond my reach and hoped maybe someone could help me out. I attached the Excel sheet to further clarify my case.

I'm trying to insert a yellow row when the day changes, as you see in this Excel sheet, a yellow row is inserted every time the day changes in the E-column, i.e. from 15th of December to 16th of December, from 16th to 17th, from 17th to 18th, etc.

Also, this yellow row should contain a SUM function in the F column, that counts the hours from the first row till the row before the inserted yellow row, and another SUM function in the N-column that subtracts this 'SUM of the column F', with the 'SUM of the N-column' that counts the hours from the first row till the row before the yellow. The second yellow row does the SUM functions between the first yellow row and the second yellow row, etc.

Basically, all the rows - except for the yellow ones - are being generated automatically, and instead of adding the yellow rows manually, I'd like to automate it with a Macro. Sheet 1 is what the result should be, and Sheet 2 is the standard layout.

Any help would be greatly appreciated!

Sub Macro3()
'
' Macro3 Macro
'

'
 

 With Sheets("sheet 2")
 r = 20
 sm = 1
   While r <= Range("B" & Rows.Count).End(xlUp).Row
   d1 = .Cells(r, 5)
   d1 = Year(d1) & Month(d1) & Day(d1)
   d2 = .Cells(r - 1, 5)
   d2 = Year(d2) & Month(d2) & Day(d2)
   If d1 <> d2 Then
   
    Rows(r & ":" & r).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("B" & r & ":N" & r).Select
    With Selection.Interior
        .PatternColorIndex = 24
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("F" & r).Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-" & sm & "]C:R[-1]C)"
    Range("M" & r) = "Netto uren"
    Range("N" & r).Select
    ActiveCell.FormulaR1C1 = "=+RC[-8]-SUM(R[-" & sm & "]C:R[-1]C)"
    r = r + 1
    sm = 1
   Else
   sm = sm + 1
   End If
   r = r + 1
   Wend
  End With
End Sub

Wow! Works like a charm, thanks alot for your help! Not sure how to close this and what I can do to thank you for your time. Added reputation, but I can't really see how to close this thread.

Wow! Amazing, this works. Thank you a lot!!!

you are welcome. To mark it as solved go to thread tools.. the reputation is more than satisfied with your big thanks.. (I dont know how to do it)