title: Clear column and row
body: <p>Need vba code to Clear column from A to J and row from 21 to 200. Below code is clearing the column till end, need to delete till column J</p>
  
  <pre><code>Function ClearSummary()
  
  
  Const TestName_Col = "B"   
  Const FirstRow_Num = "21"   
  
      MaxRowNumber = Range(TestName_Col &amp; "200").End(xlUp).Row
  
      If (MaxRowNumber &gt; FirstRow_Num) Then
          'select all rows in range &amp; clear
          CellReference = FirstRow_Num &amp; ":" &amp; MaxRowNumber
          Rows(CellReference).Select
          Selection.ClearContents
          Selection.Hyperlinks.Delete
          Selection.Font.Underline = xlUnderlineStyleNone
          Selection.Font.ColorIndex = 0
      End If
  End Function
  </code></pre>