VBA to Cut and insert Multiple Non-Contiguous Ranges

[sriley5]

Hi,

I was wondering if it would be possible to create macro where I can select multiple ranges (All within the same columns and rows) and then select an area I wan the data to be cut to. Problem is I get an error message when I attempt to cut and insert the data.

I did find the following code which works well with the exception that I need it to cut and insert at the destination cell.

Please Login or Register  to view this content.

[AlphaFrog]

The destination area cannot overlap the copied cells area. Your first area is four rows and you are trying to paste it two rows above which means part of the destination area overlaps the source. That causes the error. Consider inserting rows where you want to paste. Or paste to a dummy area on the sheet and copy the dummy area to the actual destination.

[sriley5]

Thanks, I understand the error, but trying to figure out how I can take my existing code from above and perform that function if it is possible, so rather than copying it, I want it to cut and insert to the destination cell. Any thoughts on how I could make that adjustment?

[AlphaFrog]

Please Login or Register  to view this content.

[sriley5]

Getting closer, I attached an updated workbook, but it appears that not everything makes it to the target range - the data is being split for some reason... Attached is the workbook with a sheet called After Actual - showing what I get after running the script on the "Before Sheet". This is after I have selected all the green cells holding the control key...

Please Login or Register  to view this content.

[AlphaFrog]

Because it now inserts the rows instead of pasting, ThisRng (B15) automatically shifts down for each area inserted. There is no need to offset from ThisRng. It's always at the bottom of the last inserted area.

Try this. (removed the Offset(i))

Please Login or Register  to view this content.