Paste the values

[krishnakuma6]

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

[HaHoBe]

Hi, krishnakuma6,

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

Ciao,
Holger

[krishnakuma6]

Apologies my mistake, Now I corrected.kindly please someone amend my code

[HaHoBe]

Hi, krishnakuma6,

without seeing the original and the wanted outcome maybe check

Please Login or Register  to view this content.

Ciao,
Holger

[krishnakuma6]

Thanks a lot Ciao,Holger.
This is one I need,Now its works fine
Thanks a lot once again
Rgds
Krishna