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