Code to delete lines according to order condition

[Excelpromax123]

Hello everyone. I have a spreadsheet with nearly 2000 lines, I want to delete lines 8,9,10 and 18,19,20 ( Keep the first 7 lines, delete the next 3 and repeat )
... how should I use the code? Please everyone help. I sincerely thank you
Link: Loading Google Sheets

 

[Peter_SSs]

Providing that you don't have tens of thousands of rows, try this with a copy of your data.

Sub DelRows()
  Dim r As Long
 
  Application.ScreenUpdating = False
  For r = Int(Range("B" & Rows.Count).End(xlUp).Row / 10) * 10 - 2 To 8 Step -10
    Rows(r).Resize(3).Delete
  Next r
  Application.ScreenUpdating = True
End Sub

 

[Excelpromax123]

Providing that you don't have tens of thousands of rows, try this with a copy of your data.

Sub DelRows()
  Dim r As Long
 
  Application.ScreenUpdating = False
  For r = Int(Range("B" & Rows.Count).End(xlUp).Row / 10) * 10 - 2 To 8 Step -10
    Rows(r).Resize(3).Delete
  Next r
  Application.ScreenUpdating = True
End Sub

Thank You

 

[Peter_SSs]

You're welcome.