Need to delete multiple lines in cells but keep one

Need a Macro that does the following:

For cells with multiple lines in a range
1. Deletes all dates/text that are striked out
2. Keeps only the remaining date/text that is next-in-line whether it be black and not striked out, colored, or italicized
3. Deletes the other dates/text following that kept date/text
4. Changes the color of the kept date/text to black (if it was red or a different color)
5. Does not change the dates/text font format whether it be italicized or not
6. Does not change the cells fill color

Examples: the following are lists in individual cells. ALSO SEE ATTACHMENT for sample file
---------------------------
08/01/12 *underlines indicate strikethrough
06/01/13
12/31/12
05/31/13
06/30/13
06/30/13
-----------------------------
06/30/12
01/31/13
03/07/13
06/05/13
-----------------------------
06/08/11
12/09/11
-----------------------------
09/22/11
10/31/12
03/06/12
-----------------------------
09/01/10
01/01/12
N/A
Design-Build
---------------------------------

After running the macro, the result should look like this for each individual cell based on the previous examples
-----------------------------
06/01/13
----------------------------
06/05/13
---------------------------
06/08/11
---------------------------
03/06/12
---------------------------
N/A
---------------------------

Any helpful comments or suggestions are welcome. Thank you for the help in advance.
Javier20h