Slet rækker (makro)

Hej

Jeg har tidliger benyttet mig af en makro til at skjule rækker hvor celler E:L inderholder 0.:

Nu ønsker jeg <t makroen omskrives så den sletter rækkerne istedet for at skjule dem.

Håber der er nogen der kan hjælpe.

Makroen er:

Sub hide()
Const FirstCol As String = "E"
Const LastCol As String = "L"
Dim rrow As Long
Dim shts As Sheets
  Dim sh As Worksheet
  Set shts = ActiveWindow.SelectedSheets
  ActiveSheet.Select
  For Each sh In shts
For rrow = 2 To ActiveSheet.UsedRange.Rows.Count
    If Application.WorksheetFunction.CountIf(Range(FirstCol & rrow, LastCol & rrow), "0") = _
        Range(FirstCol & rrow, LastCol & rrow).Columns.Count Then Rows(rrow).Hidden = True
Next
  sh.Activate
  Next
  shts.Select





End Sub