Leerzeilen einfügen innerhalb einer Schleife

Hi,
ich versuche mich gerade an meinen ersten VBA-Schritten und möchte einen Banken-CSV-Export ein wenig "aufhübschen".
Vor diesem Hintergrund habe ich eine Range definiert - beginnenend mit der ersten Konto-Bewegung bis zum Zeilenende.
Nun will ich die Monatsscheiben gruppieren, bzw. eine paar Summen einfügen. Zur Vorbereitung ermitteln ich daher für jede Kontobewegung/Zeile das Datum (steht in Spalte A) und vergleiche das mit dem aktuellen Monat. Ist der Wert in der Zelle ungleich dem aktuellen Monat möchte ich gern eine Leerzeile einfügen.
Mein bis dato kläglicher Versuch sieht so aus:

Sub Makro1()
Dim LastRow As Long
Set sht = Sheets("Tabelle1")
LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row
Dim rng As Range, cell As Range
Set rng = Range("A8", Cells(LastRow, 1))
Dim CurrentMonth As Integer
CurrentMonth = Month(Date)
'MsgBox ("aktueller Monat: " & CurrentMonth)
For Each cell In rng
If Month(cell) < CurrentMonth And Not IsEmpty(cell.Value) Then
Rows(cell.Row).Insert shift:=xlShiftDown
End If
Next cell
End Sub