title: VBA Code to sort an Excel Column in Ascending Order and Expand Selection?
body: <p>I am attempting to sort column D in ascending order in an excel file with VBA. I would like to expand the selection for all values in Column A-F.</p>
  
  <p>I've used this formula as a starting point:</p>
  
  <p><a href="https://stackoverflow.com/questions/14858800/sort-ascending-descending-vba-excel">sort ascending/descending vba excel</a></p>
  
  <p>It only sorts one column and in descending order. I am having trouble finding more examples.</p>
  
  <pre><code>LastRow = .Cells(.Rows.Count, "D").End(xlUp).Row
  
  If (.Range("D2").Value &gt; .Range("D" &amp; CStr(LastRow))) Then
      xlSort = xlAscending
  End If
  
  .Range("D2:D" &amp; LastRow).Sort Key1:=.Range("D2"), Order1:=xlSort, Header:=xlNo, _
  OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
  DataOption1:=xlSortNormal
  </code></pre>