your column widths are too small to display the date text so the find fails. at the beginning of the extract_detail routine below these lines
    Set ws = Sheets("AllData")
    Set wsDAo = Sheets("Direct Activities Output")
    Set wsEo = Sheets("Enhancements Output")
    Set wsPo = Sheets("Projects Output")
add these
      wsPo.Rows(4).EntireColumn.AutoFit
      wsEo.Rows(4).EntireColumn.AutoFit
      wsDAo.Rows(4).EntireColumn.AutoFit
then try the code again