title: Sorting by value
body: <p>I have this code:</p>
  
  <pre><code>Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  
      If Target.Column = 1 Then
  
          Dim lastRow As Long
          lastRow = Cells(Rows.Count, 1).End(xlUp).Row
          Range("A5:J33" &amp; lastRow).Sort key1:=Range("A5:A33" &amp; lastRow), order1:=x1Ascending, Header:=xlNo
  
      End If
  
  End Sub
  </code></pre>
  
  <p>The Range I am trying to sort is  A5:J33 and How I want it sorted is by the data in A5:A33 after it is enter</p>
  
  <p>any help would be appreciated</p>