Copying to wrong Column

I have modified this micro I found in a forum. All I changed was the Range on Sheet 1.

Please Login or Register  to view this content.

It works fine except when it cuts to sheet 2 it starts at on column B I need it to start with Column C.
What do I need to add ?

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(I have added them for you this time. Please read our rules and abide by them in the future.)

Hi, bodwhat,

no data in Sheet1 makes it hard to check the contents.

Could you explain why you start with Row 7?

Please Login or Register  to view this content.

Ciao,
Holger

Hi, bodwhat,

if rows 1 to 7 are empty you should check the first row with constant data to get the last filled column and work from there on to find the next column to write to which means you should check with row 8 in Sheet2.

Ciao,
Holger

Hello bodwhat,

It works fine except when it cuts to sheet 2 it starts at on column B I need it to start with Column C.
What do I need to add ?

May it be that you find "End(xlToLeft).Offset(0, 2)", a bit confusing?

If you want to specify a specific range to Cut from and Paste to you could simply use:

Please Login or Register  to view this content.

Regards

Hi, Wionon,

you would need to make sure to insert a new column in the destination sheet prior to copying - or you simply overwrite as per your code when performing the code a couple of times.

Ciao,
Holger

@ HaHoBe,

Hello Holger,

Nice to see you around again!

Yes, I am aware of that, thank you, but I am merely trying to apply a, step by step, inroduction of how to start with the bare basics, and then build up from there.

That is why I have stated in my post, two main qualifiers as to why I offered the most basic Code to start with, namely;

1.

May it be that you find "End(xlToLeft).Offset(0, 2)", a bit confusing?

and

2.

If you want to specify a specific range to Cut from and Paste to you could simply use:

Using what the OP is familiar with.

Please stay with me on this one, and let us see how best we may be able to widen the horizons of any less knowledgable VBA users.