VBA Excel LZ in Spalte einfügen,wenn Werte ungleich sind - bis zur ersten Leerzeile

[nopset]

Guten Tag,

programmiere zum ersten mal ein Makro, und komme nicht mehr weiter.
Ich möchte in Spalte C die Werte vergleichen, und sobald der Wert ungleich ist, soll eine Leerzeile eingefügt werden.
Mit diesem Code klappt das super:

Sub Makro12()
'fügt Leerzeilen zwischen verschiedenen Lagerorten ein (Spalte C)

Dim r As Long, mcol As String, i As Long

r = Cells(Rows.Count, "C").End(xlUp).Row

mcol = Cells(r, 3).Value

For i = r To 2 Step -1
If Cells(i, 3).Value <> mcol Then
mcol = Cells(i, 3).Value
Rows(i + 1).Insert
End If
Next i
End Sub

Das Problem: Ich möchte nicht dass er alle Werte vergleicht,sondern nur die Werte bis zur ersten leeren Zelle.
Einfach aufzeichnen geht nicht,da die Tabellenlänge variiert.
Wäre für Antworten sehr dankbar :)
Viele Grüße
Karin

[BoskoBiati]

Hallo,

füge mal folgende Zeile nach der for-Zeile ein:

Code:

If cells(i-1,3)="" then exit for

ist ungetestet.