Leerzeilen im Zeilenbereich von 2 bis 5000 löschen

Sub Delete_Rows()

'

' Delete_Rows Makro

'  

Dim intRow As Integer

Dim intLastRow As Integer

      

'    With Worksheets("Druck")

     

    ' leere Zellen löschen

        intLastRow = Cells.SpecialCells(xlCellTypeLastCell).Row

        For intRow = intLastRow To 1 Step -1

            If Application.CountA(Rows(intRow)) = 0 Then

                Rows(intRow).Delete

            End If

        Next intRow

End Sub