copy data and paste to different sheet

[newbie2]

Hi! i need a vba loop to copy data in Sheet1 and paste it in Sheet2

I have this data in Sheet1.

The number of rows is unknown but the pattern is the same.



CoumnA
ColumnB


Name



fruit1
pears


fruit2
apple


fruit3
strawberry


fruit4
grapes


fruit5
melon


fruit6
banana


Name



fruit1
apple


fruit2
melon


fruit3
banana


fruit4
strawberry


fruit5
apple


fruit6
grapes


Name



fruit1
banana


fruit2
apple


fruit3
peaches


fruit4
grapes


fruit5
watermelon


fruit6
apple






Basically i want a loop that can copy the data vertically and then pasting it in Sheet2 horizontally.

This is my desired result in Sheet2.



etc1
etc2
fruit1
fruit2
fruit33
fruit4
fruit5
fruit6




pears
apple
strawberry
grapes
melon
banana




apple
melon
banana
strawberry
apple
grapes




banana
apple
peaches
grapes
watermelon
apple















Thanks in advance!