VBA code to delete cell ranges

[bakerman]

Sub DeleteRanges()
    
    With Sheets("Score")
        For i = 3 To 273 Step 10
            .Range("D" & i).Resize(7, 11).ClearContents
        Next
    End With
    
End Sub