title: Select and Order a table with VBA
body: <p>I am currently stuck with this problem.</p>
  
  <p>I have a data matrix like this one but with a lot more of data:</p>
  
  <p><img src="https://i.stack.imgur.com/cM2Ox.png" alt="enter image description here"></p>
  
  <p>I would like to sort this table by clicking in the sort button et create a new worksheet that make:</p>
  
  <pre><code>SELECT the two smallest values
  FROM my table
  ORDER BY Blue Column Name, Data_Value
  </code></pre>
  
  <p>Then the resoult would be:
  <img src="https://i.stack.imgur.com/235ku.png" alt="enter image description here"></p>
  
  <p>Thank your for your help.</p>
  
  <p>edit:
  I have tried to order per column like this with the sort function but i is not the result i was expected at all:</p>
  
  <pre><code>'
  ' MySorting Macro
  '
  
  '
      Range("A1:E4").Select
      ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
      ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("C1:C4"), _
          SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
      ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("D1:D4"), _
          SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
      ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("E1:E4"), _
          SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
      With ActiveWorkbook.Worksheets("Feuil1").Sort
          .SetRange Range("A1:E4")
          .Header = xlGuess
          .MatchCase = False
          .Orientation = xlTopToBottom
          .SortMethod = xlPinYin
          .Apply
      End With
  End Sub
  </code></pre>