Delete alternate 9 rows with macro in excel

Closed
Report
-
Hi! I have a 301 rows in excel and would like to delete alternate 9 rows so that finally I will have data from the row 1,10,20 and so on (total 31 points). I came across macro to delete alternate row but struggling to translate this to delete alternate 9 rows.

Sub deleteAlternateRow()
Dim startAtRow, endAtRow, rowCounter As Long
startAtRow = 2
endAtRow = 100
For rowCounter = startAtRow To endAtRow
Rows(rowCounter).Select
Selection.Delete Shift:=xlUp
Next
End Sub