Change text date to normal date

Hi,
My name is Marc and I hope somebody can help me creating a VBA for my problem.
I have included a file with the problem. See the Sheet Movies_seen.

So in column “I” (Created) each cell has a date and time as a text string, it looks like this:
Sun Aug 24 04:30:24 2014
I want to replace this text date and time, into a normal date. This has to be in the same cell (sheet and column).

For example: Sun Aug 24 04:30:24 2014 will look like: 24-8-2014 (first the day, then month and last the year, separated by a “-“.

Only the date is of importance to me, the rest of the text and time of the cell can be ignored/deleted. The length of the column, in this example to row 89, is a variable.

Hope my explanation is clear, if not feel free to contact me so I can explain some more.
Thanks in advance for all your help.
Marc