Segregating dates via month

[Chopper50]

I have used a filter in my VBA code to sort a date column Oldest to newest.
List of dates:
9/12/2018
9/15/2018
10/15/2018
11/26/2018
12/1/2018
12/30/2018
1/5/2019
1/30/2019
2/1/2019
3/1/2019
etc

I would like code to keep everything prior to current date in same grouping as current month then insert a blank row after the 12/30/18 another blank row after 1/30/2019 and another blank row after 2/1/2019.

I've been struggling. Started with If statements then thought I'd go to Select Case. I can't get it all to come together.
Thanks for the help.
Chad

 

[Fluff]

How about

Sub SplitMonths()
   Dim i As Long
   
   For i = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
      If Range("A" & i).Value <= Date Then Exit For
      If month(Cells(i, 1)) <> month(Cells(i - 1, 1)) Then Rows(i).Insert
   Next i
End Sub

 

[Chopper50]

This works well. I should have started at the bottom.

Thanks

 

[Fluff]

You're welcome & thanks for the feedback