Macro Stopped Working

A friend created a complex macro that was running well and know gives a Compile error: Expected End With. I have changed it to end with but doesn't work and I am lost.
Here is the part of the Macro. It is to copy and paste info in different tabs. Below is the code the error is right at the end, I also attached the spreadsheet ready to run the macro for you to have a look at the error.
Thanks in advance.

Please Login or Register  to view this content.

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then 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

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)


Looking at the pattern in the code there appears to be 2 End With lines at each CutCopyMode set of code. One corresponding to the With Application the other to With Sheets("Data")

hi,

Try using better indentation it will help you find little bugs like this

There where 2 places you didn't have a "End With"

Please Login or Register  to view this content.

@Kpina,

Please do not ignore the fact that one of our senior forum members has asked for you to comply with the forum rules. Please add code tags.