Macro to delete rows below based on cell value

Hi all

Hope that here is someone who could help me with a following macro.

Is there a way to delet always 10 rows below if cell A2, B2 and C2 are empty, than if A12, B12 and C12 are empty, than A22, B22 and C22 etc and continze to the last row?

Thank youuuuu 😊
Andy

Maybe:

Sub dobracik()
Dim i As Long
For i = Range("A" & Rows.Count).End(3).Row To 2 Step -1
    If Cells(i, "A") = "" And Cells(i, "B") = "" And Cells(i, "C") = "" Then
        Cells(i, "A").Offset(1).Resize(10).EntireRow.Delete
    End If
Next i
End Sub

Hi John,

thanks for your reply. However is deleting everything :-( I was trying to update this macro, but not succesfuly. It always delete all the rows except first 3.
I'm attaching example for better picture,

Thanks a lot
Andy

Try:

Sub dobracik()
Dim i As Long
For i = Range("A" & Rows.Count).End(3).Row To 2 Step -10
    If Cells(i, "A") = "" And Cells(i, "B") = "" And Cells(i, "C") = "" Then
        Cells(i, "A").Resize(10).EntireRow.Delete
    End If
Next i
End Sub

Yeyyyy, cool, warking perfect
Thanks a lot lot!

You're welcome. Glad to help out and thanks for the feedback.