Copying columns... What am I doing wrong???

[jackass209]

Trying to copy columns 6 til the last non-blank column and paste it 1 column to the right. This is what I'm trying:

sh3.Columns(6 & ":" & LaatstKol).Copy
sh3.Columns(7 & ":" & LaatstKol + 1).Select
ActiveSheet.Paste

Can someone tell me what I'm doing wrong? Feeling pretty stupid over here...

 

[pbt]

First of all change LaatstKol

to LastCol and see what happens

Unless you have declared LaatstKol as something

Harry

 

[jackass209]

Hi Harry,

Yeah LaatstKol finds the last non-blank Column.
So changing it to LastCol wouldn't make a difference.
Any other advice by any chance?

LaatstKol = sh3.Cells(1, Columns.Count).End(xlToLeft).Column

 

[Norie]

Why not just insert a column?

Wouldn't that have the same effect?

 

[jackass209]

Thanks Norie... You're right. I was going way too difficult on this.