copy-paste-selected-cell-range-another-sheet

Oopss.. little bit confused done the changes

Sub test()
 
 'Turn off screen flashing for speed
Application.ScreenUpdating = False
 
With Worksheets("sheet1")
    Sheets("sheet2").Range("C14:K56").Value = .Range("A2:I45").Value
    Sheets("sheet2").Range("L14:L56").Value = .Range("L2:L45").Value
    Sheets("sheet2").Range("M14:M56").Value = .Range("M2:M45").Value
End With

 'Resume screen updates
Application.ScreenUpdating = True

End Sub