title: Clear Contents on a limited range
body: <p>I am attempting to clear the contents of columns B:O starting with Row 11 for every third row (using a macro specifically,) but can't seem to find anything that works. The closest I have gotten is</p>
  <pre><code>Sub Clear_Weekly()
  Dim x As Long, y As Long, z As Range
  x = 11
  y = Cells(Rows.Count, 2).End(xlUp).Row
  Do
  Cells(x, 2).ClearContents
  Cells(x, 3).ClearContents
  Cells(x, 4).ClearContents
  Cells(x, 5).ClearContents
  Cells(x, 6).ClearContents
  Cells(x, 7).ClearContents
  Cells(x, 8).ClearContents
  Cells(x, 9).ClearContents
  Cells(x, 10).ClearContents
  Cells(x, 11).ClearContents
  Cells(x, 12).ClearContents
  Cells(x, 13).ClearContents
  Cells(x, 14).ClearContents
  Cells(x, 15).ClearContents
  x = x + 3
  Loop While x &lt;= y
  End Sub 
  </code></pre>
  <p>I'm sure I don't need all the repeating ClearContents, as well, but I am still new to this</p>
  <p>The current attempt is</p>
  <pre><code>Sub ClearWeekly()
  
     With ActiveSheet
         Dim lastRow As Long
         lastRow = .Cells(.Rows.Count, 2).End(xlUp).Row
  
         Dim i As Long
         For i = 11 to lastRow Step 3
             .Range(&quot;B&quot; &amp; i &amp; &quot;:O&quot; &amp; i).ClearContents
         Next
     End With
  
  End Sub
  </code></pre>
  <p>But that seems to stop after deleting the first row.</p>