Copy different range and paste value below the last value

[AkJimmy]

Dear masters,

please advise that how to make a VBA to copy different range of 2 worksheeks and paste them into a consolidated worksheet (x).

Example,
Sheet(“Apple”) - Range A2:A5, C2:C5
Copy and paste to sheet(“x”) Column A, from A2:A5 and Column C, C2:C5
Sheet(“orange”) - Range A2:A6, C2:C6
Copy and paste to sheet(“x”) Column A, from A6:A10 and Column C, from C6:C10

Apart that, please automatically label Column B from B2:B5 as “Apple” and B6:B10 as “orange”.

As I am a newbie to VBA please advise me, thanks a lot !

jimmy