Sort Top 3 in date order and copy to red cells

[berty2000]

-- removed inline image ---

 

[berty2000]

thinking along the lines of this

'to find ealiest date

=Find_Range(small(E8:E13,1), Columns("E"), xlFormulas, xlWhole).EntireRow.Copy Range("B4")

'to find 2nd ealiest

=Find_Range(small(E8:E13,2), Columns("E"), xlFormulas, xlWhole).EntireRow.Copy Range("B5")

But can't seem to get it to work - its half hour to midnight (wheres the sleep button gone ? lol)