title: Excel VBA: Sort rows Numerically (by column value) THEN sort by one specific string
body: <p>I don't know if this is the right approach for this. But here goes. I have some excel data:</p>
  
  <pre><code>Column 1 |  Column 2
  1        |   open
  3        |   issue
  7        |   closed
  8        |   open
  </code></pre>
  
  <p>I need to sort by column 2 (all columns with 'open' at top of list but with a numerical sort also so the row with '8,Open' would be at the top) then the rest of the rows need sorting only numerically highest numbers first. </p>
  
  <p>resulting in:</p>
  
  <pre><code>Column 1 |  Column 2
  8        |   open
  1        |   open
  7        |   closed
  3        |   issue
  </code></pre>
  
  <p>Below is my code for the numeric only (column 12). I need help with the other aspect.</p>
  
  <pre><code>With ActiveSheet.Sort
      .SortFields.Clear
      .SortFields.Add Key:=Selection.EntireRow.Columns(12), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
      .SetRange ActiveSheet.Range(Data)
      .Header = xlGuess
      .MatchCase = False
      .Orientation = xlTopToBottom
      .SortMethod = xlPinYin
      .Apply
  End With
  </code></pre>