Need Macro for Copying Specific column data and paste it into different sheet, different columns

[mgr2222]

hi,
i need a macro to copy column "B" data from workbook1 and paste it into workbook2 as per below example.
if, the macro triggered first time, it should copy data of workbook1, column "B" and paste it into workbook2, column "A". if the macro triggered second time, it should copy data of workbook1, column "B" and paste it into workbook2, column "B". When macro triggered third time, it should do copy data in workbook2, column "C". i have gone through this forum for append copying data between worksheets, but that is row based copy. This one is column based append copy. Please help.
workbook1
[TABLE="width: 50"]
<tbody>[TR]
[TD]A[/TD]
[TD]B[/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]4[/TD]
[/TR]
[TR]
[TD]5[/TD]
[TD]6[/TD]
[/TR]
</tbody>[/TABLE]

workbook2
[TABLE="width: 50"]
<tbody>[TR]
[TD]A[/TD]
[TD]B[/TD]
[TD]C[/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD]4[/TD]
[TD]4[/TD]
[/TR]
[TR]
[TD]6[/TD]
[TD]6[/TD]
[TD]6
[/TD]
[/TR]
</tbody>[/TABLE]