Copy/Paste Loop Needs to Recognize Blank Cells

Hello Everyone,

I currently have a macro that loops through a copy/paste from one sheet to another. It copies column C with column S, T, U and pastes it in another sheet. Then it copies column C with V, W, X and pastes it at the bottom of the other data. Here is the current code I have in the macro:

Please Login or Register  to view this content.

My problem is, as you can see in the attached file - DataExample.xlsx - when you get to the end of the copy/paste columns, not all of the groups of the 3 columns have information on the last row. In the example provided, you'll see everything will copy/paste fine through AA, AB, AC. However, when the macro copies AD, AE, AF and tries to paste it, the macro will find the last filled out cell instead of the last copied cell from AA, AB, AC. Therefore, the data in Cell AE21 will not match up with the corresponding C21 data.

I'm looking for a way to make it so that the code doesn't simply locate the last filled used row in sheet2 and paste the data, it will compensate for the blanks that were also copied/pasted.

Please let me know if you have any questions!

Thanks!

See if this works:

Please Login or Register  to view this content.

Seems to work great. Thanks Stephen