Löschen leere Zeile ab bestimmter Zeile

hatte von markus (DANKE!) diesen Code bekommen:
Private Sub Worksheet_Activate()

Range("A1").Select

lastrow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = lastrow To 1 Step -1
If Application.WorksheetFunction.CountA(Rows(r)) = 0 _
Then Rows(r).Delete
Next r

End Sub

Dieser löscht dummerweise auch die leeren Zeilen über Zeile 43. Da soll da Makro nämlich erst beginnen. Und dann auch nur die Zeilen löschen, deren Inhalt leer ist und die einen Rahmen haben in Spalte A-L.

Wäre super, wenn jemand noch Ergänzungen hätte.

Danke im Voraus.
Sebastian