Solved: Select columns to copy

[p45cal]

It gives me "Application-defined or object-defined error"

Ah yes, that fails if sheet 1 isn't active. Try this:
[vba]With Sheets("Sheet1")
Range(.Range("B2"), .Range("B2").End(xlToRight)).EntireColumn.Copy
End With
Sheets("Sheet2").Select
Columns("B:B").Select
Range("B2").Activate
Selection.Insert Shift:=xlToRight
Application.CutCopyMode = False
[/vba]