UPDATE


I have got this code to work:

Sheets("sheet2").Range("C46:BH63").copy
Sheets("sheet1").Activate
ActiveCell.Offset(0, 2).Select
ActiveSheet.Paste