Using VBA to break out a whole month even if zero data

[RomoBot]

Hello, this to me feels a bit complicated but I'm hoping to find an elegant solution. I am new to posting here so please let me know what all additional information I need to provide if I am missing something. Also as a caveat, I am very rudimentary at VBA - I basically know how to copy and paste from what people post as solutions.

I need to track number of posts per day, even if they are zero, based on a downloaded CSV file in a specific format (only including days there were posts) and also combine dates that are the same.

Basically: I need to turn this:

Into this:

Using a macro that can also recognize the length of the month (not always July.) It also has to all be done as a macro, because I am turning it over to the client who wants to just paste the raw data and have (the second picture) appear.

Any help would be much appreciated!

 

[maabadi]

it would be better to change it to :

Sub Macro3()
    Dim Lr As Long, i As Long, C As Long, M As Long
    Range("G1:I1").Value = Array("Date", "# of Posts", "Engagements")
    Lr = Range("A" & Rows.Count).End(xlUp).Row
    Range("G2").Value = Application.WorksheetFunction.EoMonth(Application.WorksheetFunction.Min(Range("A2:A" & Lr)), -1) + 1
    C = Application.WorksheetFunction.EoMonth(Application.WorksheetFunction.Max(Range("A2:A" & Lr)), 0) - Range("G2").Value + 1
    Range("G2").EntireColumn.NumberFormat = "dd-mmm"
    Range("G2").AutoFill Destination:=Range("G2").Resize(C), Type:=xlFillDefault
   
    Range("H2").Formula = "=IF(SUMIFS(B$2:B$" & Lr & ",$A$2:$A$" & Lr & ",$G2)=0,"""",SUMIFS(B$2:B$" & Lr & ",$A$2:$A$" & Lr & ",$G2))"
    Range("I2").Formula = "=IF(SUMIFS(E$2:E$" & Lr & ",$A$2:$A$" & Lr & ",$G2)=0,"""",SUMIFS(E$2:E$" & Lr & ",$A$2:$A$" & Lr & ",$G2))"
    Range("H2:I2").AutoFill Destination:=Range("H2:I" & C + 1), Type:=xlFillDefault
    Range("H2:I" & C + 1).Value = Range("H2:I" & C + 1).Value
End Sub