VBA code to delete cell ranges

[bakerman]

This really wasn't so hard, not ?

Sub DeleteRanges()

    If MsgBox("Are you sure you want to delete data ?", vbYesNoCancel + vbExclamation, "Delete data") = vbYes Then
        With Sheets("Score")
            For i = 3 To 273 Step 10
                .Range("D" & i).Resize(7, 11).ClearContents
            Next
        End With
    End If
    
End Sub