title: Selecting a range until at least one column has numeric value
body: <p>I have a question,</p>
  
  <p>I have a table with data:</p>
  
  <pre><code>    A       B       C
     Type   Height Length
      1       2       2
      2       3       9
      3       8       2
              2       3
      1               0
                      1
  </code></pre>
  
  <p>I've been reading how to select that range but the problem I can't solve is how to select the range above <code>until the row where at least one column contains a numeric value</code>. But the problem is that the range is <code>a part of a reference</code> and Excel assumes that the number of used rows is larger because a lot of rows are blank and are part of a reference.</p>
  
  <p>So my question is:</p>
  
  <p><code>How do I select the above range until the first row where none of columns A, B or C contain at least one numeric entry, and where the number of used rows is larger because the range is a part of reference</code>. </p>
  
  <p>I tried</p>
  
  <pre><code>Sub Choose()
  Dim Lastrow As Integer
  Lastrow = ActiveSheet.Range("A" &amp; Rows.Count).End(xlUp).Row
  MsgBox Lastrow
  'Range("A2:C" &amp; Lastrow).Select
  End Sub
  </code></pre>
  
  <p>But the MsgBox returns 118, which is because the Range I want to select is part of a reference...</p>
  
  <p>Does anyone have an idea?</p>
  
  <p>EDIT:
  That does not work, still select empty cells because it is reference...</p>
  
  <pre><code>Sub Sort3()
  Dim oneRange As Range
  Dim aCell As Range
  Worksheets("Analys").Select
  Set oneRange = ActiveCell.CurrentRegion.Range("D1")
  Set aCell = Range("M10")
  
  oneRange.Sort Key1:=aCell, Order1:=xlDescending, Header:=xlYes
  End Sub
  </code></pre>