Loop to CopyPaste and repeat iterations

Hi.

I need loop to paste data range [A2:B56] and fisrt data range [D2:E2] on adjacent column and do it last cell in range [D:E]

Ex:
1. Copy range [A2:B56] sheet "Result" and copy range [D2:E2] on adjacent column
2. Copy range [A2:B56] sheet "Result" and copy range [D3:E3] on adjacent column
3. Copy range [A2:B56] sheet "Result" and copy range [D4:E4] on adjacent column
4. Copy range [A2:B56] sheet "Result" and copy range [D5:E5] on adjacent column
5. Copy range [A2:B56] sheet "Result" and copy range [D6:E6] on adjacent column
And on and on.....2640 times.
I try manual, but is large to write vba without loop.

Please Login or Register  to view this content.

See my file

Hi AB33
I very happy for your help, thank you!!

I have question...

Thank you very much!!!!!!!!!!!!!!!!!!!

Hi AB33
I need you look more one time to my requeste, thank you!
In column A and B (sheet "Result"), i have 32 rows (no blank rows in this range).
In column D and E (sheet "Result"), i have 55 rows (no blank rows in this range).

When code run, total rows in (sheet "Result"), It should be 1760 total rows.

In my tests your code give me 1024 rows

Hi. I change sides data column A,B to column D,E
I use o code and solve!

Please Login or Register  to view this content.