Löschen leerer Zeilen funktioniert nicht

kann mir mal jemand erklären, warum folgender Code nicht die Zeilen in einer Tabelle ab Zeile 9 bzw. 13 löscht?

Private Sub Workbook_BeforePrint(Cancel As Boolean)

' vor dem Druck von KM-Geld werden die Leerzeilen gelöscht
If ActiveSheet.Name = "KM-Geld" Then
lastrow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
For r = lastrow To 9 Step -1
If Application.WorksheetFunction.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End If

' vor dem Druck von Verauslagte Kosten werden Leerzeilen gelöscht
If ActiveSheet.Name = "Verauslagte Kosten" Then
lastrow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
For r = lastrow To 13 Step -1
If Application.WorksheetFunction.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End If

End Sub

Es erscheint auch keine Fehlermeldung...

Danke, Sebastian