title: Custom Auto-Sort Macro Excel
body: <p>I would like to customize the below macro. What I would like the macro to do is auto-sort as per the below list. Any suggestions on how I could go about doing this?</p>
  
  <p>Thank you.</p>
  
  <p>Code:</p>
  
  <pre><code>Private Sub Worksheet_Change(ByVal Target As Range)
      On Error Resume Next
      If Not Intersect(Target, Range("A:A")) Is Nothing Then
          Range("A7").Sort Key1:=Range("A8:A18"), _
            Order1:=xlDescending, Header:=xlYes, _
            MatchCase:=False, _
            Orientation:=xlTopToBottom
  
  End If
  End Sub
  </code></pre>
  
  <p>Preferred sorting structure:</p>
  
  <ul>
  <li>Best Choices</li>
  <li>Use Caution</li>
  <li>Not Recommended</li>
  </ul>