Warum löscht er die rows nicht?
In spalte "B" ist der Schlüssel bis dahin soll er die letzte befüllte Zelle suchen.
Der Rest soll gelöscht werden!
Wollte die werte in ROWS("lastrow:lastrow1") übergeben und löschen.
Sub RowCountLoeschen()
Dim lastrow As Integer
Dim lastrow1 As Integer
lastrow = Range("b" & Rows.Count).End(xlUp).Row
lastrow1 = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
' letzteZelle = Range("B1").End(xlUp).Select
' lastrow1 = ActiveCell.SpecialCells(xlLastCell).Select
Rows("lastrow:lastrow1").Delete
End Sub