Suppression des lignes vides d'un Range

Sub Suppression()
Dim i&
For i = 250 To 18 Step -1
If Range("A" & i).Value = "" Then Rows(i).Delete
Next i
End Sub

On Error Resume Next
Range("A18:A250").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0

Sub Macro3()
'
' Macro3 Macro
' Macro enregistrée le 18/07/2012 par Staple
'

'
    Range("A18:A250").Sort Key1:=Range("A18"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

Sub toto()
Dim i&
    With Application: .ScreenUpdating = 0: .EnableEvents = 0: .Calculation = -4135: End With
    With Range("A18:A250")
        For i = .Rows.Count To 1 Step -1
            If IsEmpty(.Cells(i)) Then Rows(.Cells(i).Row).EntireRow.Delete
        Next
    End With
    With Application: .Calculation = -4105: .EnableEvents = 1: .ScreenUpdating = 1: End With
End Sub