title: Find newest reading date and copy depth column to new sheet
body: <p>I have an excel workbook where data has been imported by the user. See image.
  <a href="https://i.stack.imgur.com/hKBwx.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/hKBwx.png" alt="enter image description here"></a></p>
  
  <p>I want to find the most recent date and copy the depth values at the corresponding date (most recent) to a separate sheet called "Hidden" My issue is that the number of data sets imported is dependent on how many data sets the user imports therefore it is dynamic. As well the cell where the Reading Date is located is dynamic depending on how many values there are for depth (wont always be 17.5) </p>
  
  <p>Here is some code I have been working with</p>
  
  <pre><code>Sub Copy_Depth1()
  
  Dim i As Integer
  Dim j As Integer
  
  j = 1
  i = 1
  
  Do Until j = Sheets("Hidden").Range("B2").Value 'I count how many times data has been imported to this sheet in this cell in this specific case j is 3
  
  With Sheets("Data Importation Sheet")
  Set Cell2 = .Columns(i).Find(What:="Reading Date:", LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlDown, MatchCase:=False, SearchFormat:=False)
  Set Cell3 = Cell2.Offset(1, 0)
  Debug.Print Cell3.FormulaR1C1
  End With
  
  i = i + 7
  j = j + 1
  
  Loop
  
  End Sub
  </code></pre>
  
  <p>Any tips/help would be greatly appreciated! Thanks in advance!</p>