Delete nth rows

[grejta]

Dear Sir,
I need help for delete one row every 10 rows, Starting from first row #6 than #18 and so on till the end row 1193

Thank you in advanced,

 

[footoo]

Dear Sir,
I need help for delete one row every 10 rows, Starting from first row #6 than #18 and so on till the end row 1193

Thank you in advanced,

Do you mean row #16 instead of #18 ?
Would you like a manual solution, or a VBA solution, or both?

 

[footoo]

• Manual solution (using a helper column)
- Assuming : Start row 6, Delete every 10th row
- In a blank helper column at the starting row enter (row 6) : =IF(MOD(ROW()-6,10)=0,1,””)
- Fill down
- Select the helper column and go to SpecialCells>Formulas>Numbers>OK
- Delete>Entire row
- Delete the helper column

• VBA

Sub DeleteRows()
Dim totRows&, nthRow&, startRow&, endRow&, r&

totRows = 1193 'Total rows
nthRow = 10    'Every nth row to be deleted
startRow = 6   'Start row
endRow = totRows - (totRows - startRow) Mod nthRow

Application.ScreenUpdating = False
For r = endRow To startRow Step -nthRow
    Rows(r).Delete
Next
Application.ScreenUpdating = True
End Sub

 

[grejta]

Is perfect thank you for your help