title: Clear the contents of columns B to F if cell A is empty
body: <p>I have a worksheet with values depending on Cell A. If a row in column A contains a value then cells from Columns B through H will be changed accordingly.</p>
  
  <p>If Cell of Column A is empty I want to reset the cells from columns D through F.</p>
  
  <p>I wrote down the following VBA Code</p>
  
  <pre><code>Private Sub Worksheet_Change(ByVal Target As Range)
      Dim n As Integer
      For n = 5 To 75
          Application.EnableEvents = False
          If VarType(Cells(n, 1)) = vbEmpty Then
             Cells(n, 4).ClearContents
             Cells(n, 5).ClearContents
             Cells(n, 6).ClearContents
          Application.EnableEvents = True
          End If
      Next n
  End Sub
  </code></pre>
  
  <p>The "FOR" Loop is annoying, and making the Excel to pause for 1 second or more after any entry to any Cell, can anyone help me correct the above code to do what I need to do without the "FOR" loop.</p>