Copy and pasta into the next empty column

[ConfusedaboutVBA]

Hi guys

I have the below code but it doesn't actually do what I need it to do. Basically i want to copy and paste the column from WB2 into the next empty column in WB3. Any help would be greatly appreciated.

Please Login or Register  to view this content.

[smuzoen]

If I understand you correctly just find the next free column with

Please Login or Register  to view this content.

For interest why use 2+1 instead of 3? Is this a mistake?

Please Login or Register  to view this content.

[ConfusedaboutVBA]

Hi

Thanks for your post - yes that i + 2 thingy was an error.

Your code doesn't quite do what i need it to do. It keeps overriding my data in column B on sheet WB2. Basically when i activate the macro, I want to find the next empty column and paste the data in. so if Column B has data already, then the macro will enter the new data in column C and so forth

Hopefully that makes sense =/

[dkrzysik]

I am attempting to do this myself as well for a project...I will keep trying but I am not having much luck.

[dkrzysik]

Try adding a column first then pasting the data you want. Please post your final solution if you find one.

[CODE]Columns("B:B").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlToRight
Range("A2:A8").Select
Selection.Copy
Range("B1").Select
ActiveSheet.Paste[/1CODE]

[smuzoen]

The following code will get the next free column - you need to use a row that contains data so it calculates correctly

Please Login or Register  to view this content.

In this case it uses row 3 to determine where next free column is - you will need to adjust this based on your worksheet layout.