Date Not Formatting Correctly

I am using the code below to breakout some data into sheets. However, when the data is copied over into the sheets the dates are not formatted correctly. Does anyone have a quick fix to add to the macro for this problem?

Please Login or Register  to view this content.

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here