Isolate the last 3 used area of the column

[emina002]

Hello, few years back. I do have problem finding last empty cell on a column and inserting, copy paste the last non empty column. Now, I do have same problem again but this time I have to copy the last 3 non empty columns and paste it on 3 inserted column. Here is the piece of successful code with my previous problem. Hope you can modify it. Thanks!

Please Login or Register  to view this content.

[Kaper]

How about (try it):

Please Login or Register  to view this content.

I just added two lines and one declaration of variable. Looking at the structure - it shall work. Or if I understand wrong your concept - try another mod:

Please Login or Register  to view this content.

just a small tip:

Next time post a tiny sample workbook with few input data and desired (manualy "calculated") results.
It makes much easier to test few concepts and choose the best one for those who try to help.

[Kaper]

PS. depending on data layout and filled/empty cells it could be wise to add a security measure to the final lines:

Please Login or Register  to view this content.

[emina002]

Hi sorry if I didn't attach sample workbook. Kindly see below sample workbook. Since this is a monthly report,let assume that on row 2,it will find an empty cell which is on Column E. I have to copy the last 3 previous column(A,the merge column/row B,C and D,may be 4 columns since B and C are merge),and insert copied cells as the macro select Column E(which the macro found empty cell on row 2). See the must be result tab. If you notice Column E to H is populated already, with the details on last 4 columns. For the next month, I have to open the workbook and create another report for current month(eg: February report), if the code will identify the last empty cell on row 2 and it would be on Column I now. I just embed your modify code and it just copy the last non empty column 3x. Let me know if the example is not yet clear. Thanks.

[Kaper]

OK. Then yet another approach (and you are right - there are 4 columns indeed, just 3 headers):

Please Login or Register  to view this content.

As you see the only change (marked blue) from the original code, is to move c cell left 3 columns from original and made c 4 columns wide before setting rng Range (to be copied and inserted).

[emina002]

Wow it works. I tried to modify the code but when I run it, it getting error. Now my problem solved now. Thanks @Kaper