I assume the following.
1. Date,O,H,L,C,V EOD data is in Sheet1.
2. First row is for label.
3. Sort data from oldest to newest.
4. Output to Sheet2.
Sub Scan()
Dim i As Integer, j As Integer, k As Integer
Dim total_row As Integer, output_ptr As Integer
' Delete output in Sheet2
If...