delete entire row sneller maken

[SeRoMaRu]

Beste,

Ik heb een lange code met als bottleneck het deleten van een range. Heeft er iemand een oplossing voor het versnellen van mijn macro met de nadruk op selection.entirerow.delete?

Sheets("Sheet1").Select
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=9, Criteria1:="<>"
    Range("A2:I2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.Calculation = xlCalculationManual
    Selection.EntireRow.Delete
    Application.Calculation = xlCalculationAutomatic
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=9

Alvast heel erg bedankt,
Robert

 

[Cobbe]

Haal uw select en selection uit uw code.
En maak gebruik van With en End With.

 

[SeRoMaRu]

with en end with gedaan, werkt erg goed! Dankuwel!!

Selection uit de code halen vind ik wat lastiger... zou u me daar mee kunnen helpen?

 

[Cobbe]

Ik weet niet of de code doet watje voor ogen hebt:

Sub cobbe()
 With Sheets("Sheet1")
        .ListObjects("Table1").Range.AutoFilter Field:=9, Criteria1:="<>"
   With Application
        .Calculation = xlCalculationManual
            .Range(.Range("A2:I2"), .Range("A2:I2").End(xlDown)).EntireRow.Delete
        .Calculation = xlCalculationAutomatic
   End With
        .ListObjects("Table1").Range.AutoFilter
 End With
End Sub

 

[SeRoMaRu]

Hij werkt! Heel erg bedankt!!!!