help copying cell value instead of formula

I'm using this code to copy selected rows to another sheet but I want to just copy the value and not the formula. I'm useing "Copy Destination:=ws1.Cells" but is there a way to paste value?

Formula:

Please Login or Register  to view this content.

To paste values only, you will need 2 lines for the copy/paste. For example:

Please Login or Register  to view this content.

becomes:

Please Login or Register  to view this content.

Alternatively, keep the code the way you have it, and just make the value of the range in question = the .Value of the range... for example if A1 to A6 are the result of a formula, then Range("A1:A6").Value = Range("A1:A6").Value would convert the formulas to values

Glad I could help
Thanks for the rep, and for marking the thread as solved.

I'm getting an error but I think im supposed to post a new thread instead of continuing on this one so I'll do that.

Edit: problem solved. I noticed that the second For statement worked fine so I just erased the first For statement and rewrote the second to match the first then rewrote the second and now it all works. Seems nonsensical but somehow it did the trick. In the end its the exact same code as above. Here is the new code with the paste function.

Formula:

Please Login or Register  to view this content.