VBa code 6 lines apart, delete 4 lines from row 1 down

[Excelpromax123]

Hello everyone. I need to write the code from line 1 to line 10000, every 6 lines of numbers go 4 lines as the image depicts. Sincerely thank

code.xlsb

drive.google.com

 

[CephasOz]

Does this do what you want?

Sub DeleteRows()
    Dim lngBlock As Long
    For lngBlock = 10000 To 1 Step -10
        ActiveSheet.Rows((lngBlock - 3) & ":" & lngBlock).EntireRow.Delete
    Next
End Sub