Copy selected cells to end of row in another worksheet

[jones5]

I am trying to figure out the code to copy selected cells on a worksheet and then paste the selected cells to the last row in another worksheet in the same workbook. The worksheet that I am copying from will have an employees name, such as Mary, and the selected cells will be paste to a worksheet called Current Projects. I was able to get the paste part to work, but it is only copying the first cell on the employee worksheet & pasting the same information for all the cells. Any help would be greatly appreciated.

[arlu1201]

Welcome to the Forum. It would be good if you attach a sample workbook along with the code you are using so we can help you better.

[jones5]

Here is a copy of the Excel workbook.

[arlu1201]

Would you/user select the cells which need to be copied? Or should the macro select certain cells based on a condition?

[jones5]

the user would select the cells that need to be copied

[arlu1201]

All you need is 1 line of code -

Please Login or Register  to view this content.

[jones5]

This works! Thanks so much. Of course, thinks have change & I know need to have the line that is being copied deleted once it is moved to the current projects tab. Any suggestions?

[arlu1201]

You have 2 options in hand -
1. Use cut paste and not copy paste. This will give you blanks that you need to go back to the sheet and delete. OR
2. Use cut paste and then sort the sheet where you cut from to get rid of the blanks.

If you choose option 1 - your code will be -

Please Login or Register  to view this content.

Code for option 2 is -

Please Login or Register  to view this content.