Fjerne tomme rækker i excel

Sub SletTomme()
Dim sidsteRække, række
    sidsteRække = ActiveCell.SpecialCells(xlLastCell).Row
   
    With ActiveSheet
    For række = sidsteRække To 1 Step -1
        If .Cells(række, 1) = "" Then
            .Rows(række).EntireRow.Delete
        End If
    Next række
    End With
End Sub