Paste the values

Dear Experts
How can I change the code for copy or paste the values only from the below code

Sub Test()
Dim N As Long
Dim M As Long

Sheets("Manpower").Activate
Sheets("Sheet1").Cells.ClearContents
Range(Cells(2, 2), Cells(2, 17)).Copy Destination:=Sheets("Sheet1").Cells(2, 1)
Sheets("Sheet1").Cells(2, 15) = "Contract code"
Sheets("Sheet1").Cells(2, 16) = "Percentage"

For N = 3 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(N, 1).Value = "" Then Exit For
For M = 17 To Cells(3, Columns.Count).End(xlToLeft).Column
If Cells(N, M) <> "" Then
Range(Cells(N, 2), Cells(N, 15)).Copy Destination:=Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Offset(0, 14) = Cells(2, M)
Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Offset(0, 15) = Cells(N, M)
End If
Next M
Next N
End Sub