VBA formula to copy format and paste cells for dates?

I've got this code

Please Login or Register  to view this content.

Let's say I have something like this..

Assignment 1 start Assignment 1 end Assignment 2 Start Assignment 2 end
1/10/2007 2/12/2008 5/6/2005 1/9/2006
1/20/2008 2/20/2009 2/21/2009 2/27/2009


What it should do is take the two dates that are before the first two, (5/6/2005 and 1/9/2006 and replace them with 1/10/2007 and 2/12/2008 and then put 5/6/2005 and 1/9/2006 into the first two cells of the row.)
The second row is fine because they're all chronologically placed.

Instead I get something like this

Assignment 1 start Assignment 1 end Assignment 2 Start Assignment 2 end
5/6/2005 1/9/2006 5/6/2005 1/9/2006
1/20/2008 2/20/2009 2/21/2009 2/27/2009

where it just copied the last two and didn't paste the first two inplace of the last two. Any ideas? I'd like to preserve formatting of the cells as well because the colors I have on the cells help me differentiate assignments from different contractors. So assignment 1 start and end might be green, and assignment 2 start and end might be blue. I'd like to keep them those colors when switched.

Thanks in advance.

That's awesome! Thanks so much!!! My only question is I see that you must have copied this part of my original code

Please Login or Register  to view this content.

Is there any way to get rid of that bit in the code you just gave me? Other than that it's perfect!