Delete Every Nth Row

Hello everybody
I found this code

Public Sub DeleteEveryNthRow(Optional N As Long = 2)
        'The default is to delete every 2nd row
        Dim rDelete As Range
        Dim i As Long
        With ActiveSheet
            Set rDelete = .Rows(N)
            For i = 2 * N To .UsedRange.Rows.Count Step N
                Set delRange = Union(rDelete, .Rows(i))
            Next i
        End With
        rDelete.Delete
    End Sub

It's supposed to delete every Nth row ..
I don't know how to use it?
I tried a lot but failed

You need to call it from another sub, given that you have parameters involved. Try:

Sub test()
    Call DeleteEveryNthRow      'or, DeleteEveryNthRow(3) for every third row
End Sub

Public Sub DeleteEveryNthRow(Optional N As Long = 2)
    'The default is to delete every 2nd row
    Dim rDelete As Range
    Dim i As Long
    With ActiveSheet
        Set rDelete = .Rows(N)
        For i = 2 * N To .UsedRange.Rows.Count Step N
            Set rDelete = Union(rDelete, .Rows(i))  'made minor edit
        Next i
    End With
    rDelete.Delete
End Sub

Mr. Berlan
That's great and simple .. So perfect
Thanks a lot
I tried the code with 10000 rows .. It took very long time and I had to press Ctrl + Pause Break to stop it .. And no rows had been deleted!
Is there a faster code that can do that task?

Does this help?

Sub YasserKhalil()
Dim i As Long
For i = Range("A" & Rows.Count).End(3).Row To 2 Step -9
        Rows(i).Delete
Next i
End Sub

@John, only problem with that one is that it will recalculate every time you delete a row and slow down the process even more. Or if calculation is turned off, there will still be more interaction with Excel for each deletion, I'm afraid, but haven't tried on a large sample.

berlan

I tested on 10000 rows. It took less then 15 seconds. Of course room for improvement. But my first goal was to get the rows deleted.

Thanks everybody for these great help
I tried a combination of both codes and it took only 7 seconds for me

Sub YasserKhalil()
    Dim I As Long, lCalc

    With Application
        .EnableEvents = False
        .DisplayAlerts = False
        lCalc = .Calculation
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
    End With

    For I = Range("A" & Rows.Count).End(3).Row To 2 Step -2
            Rows(I).Delete
    Next I
    
    With Application
        .EnableEvents = True
        .DisplayAlerts = True
        .Calculation = lCalc
        .ScreenUpdating = True
    End With
End Sub

You're welcome. I thought you wanted every 9th row, the code you posted is for every 2 rows.

Thanks a lot Mr. Debraj for this code
I tried to make it delete every 2nd row by changing this line

lngNth = 2

But I encountered an error (Object required) at this line

rngHelperCell.Clear

Thanks a lot Mr. Debraj Roy

The code in post #8# takes about 3 seconds but your working code takes about 6 seconds !
Although I added the parts of disabling screenupdating and calculation for your code .. But I preferred your way of thinking about using filter

    With Application
        .EnableEvents = False
        .DisplayAlerts = False
        lCalc = .Calculation
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
    End With

    With Application
        .EnableEvents = True
        .DisplayAlerts = True
        .Calculation = lCalc
        .ScreenUpdating = True
    End With