title: Clear entire row data except the first row using excel VBA
body: <p>I am using below code to clear contents from A2:H2 rows except the first one where I have the header. This code works well if there are no blank cells in between. But how can I clear everything eventhough there is a blank cell?</p>
  
  <pre><code>Sub Clear()
  
  Dim s1Sheet As Worksheet
  
  Set s1Sheet = Workbooks("StockScreen.xlsm").Sheets("TimeStampWork")
  
  s1Sheet.Range(s1Sheet.Range("A2:H2"), s1Sheet.Range("A2:H2").End(xlDown)).ClearContents
  
  End Sub
  </code></pre>