title: Clear Contents of Specific Ranges
body: <p>I am still new to VBA. I wanted to clear all the contents of the data (Row 3 to Row 12, Row 15 to Row 24, etc) below the yellow headers, without deleting all of the headers as shown in the photos (Fig 1 becomes Fig. 2). The headers go all the way down to row 109 (increments of 12 from Row 1, so Rows 1,13,25 ...85). I have a code but its too basic and long:</p>
  <pre><code> Sub Clear_All()
  
   Set Unitsheet = ThisWorkbook.Worksheets(&quot;Sheet&quot;1)
    Unitsheet.Range(&quot;A3:F12&quot;).ClearContents
   Unitsheet.Range(&quot;A15:F24&quot;).ClearContents
   .
   .
   .
   .'up to
     Unitsheet.Range(&quot;A111:F120&quot;).ClearContents
  
  End Sub
  </code></pre>
  <p>I need a code that is short, since the rows may reach up to more than 1000.
  Any help will be much appreciated.</p>
  <p><a href="https://i.stack.imgur.com/mIxid.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/mIxid.jpg" alt="Fig. 1" /></a></p>
  <p>|<br>
  |<br>
  V</p>
  <p><a href="https://i.stack.imgur.com/DHWJ6.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/DHWJ6.jpg" alt="Fig. 2" /></a></p>