help on syntax logic on paste special

[Josephoo]

Hi everyone

I have a small issue here and would like to seek some advice from the veteran around here.

I did the following code to copy and paste some information. however, I have managed to achieve a copy and paste into the worksheet I want.

How do I change the part that's in red to copy and paste only the values instead of the formula into another sheet called "Sheet1"?

I tried using paste special values to do it but doesn't seem to be able to get the syntax right. I'm guessing it's my lack of experience with this part.

Sub pasty()
Dim i As Integer
Dim k As Integer
Dim j As Integer


k = 6


For i = 5 To 200


If Cells(i, 15).Value = 3 And Cells(i + 1, 15).Value = "" Then


''''''''''''''copy total vol''''''''''''''''''''''''
Cells(i + 1, k).Copy ThisWorkbook.Worksheets("Sheet1").Cells(1 + j, k)

''''''''''''''copy Period'''''''''''''''''''''''''''
Cells(i, k + 1).Copy Cells(200 + j, k + 1)

''''''''''''''copy price''''''''''''''''''''''''''''
Cells(i + 1, k + 2).Copy Cells(200 + j, k + 2)

''''''''''''''copy Nature of trades''''''''''''''''''
Cells(i, k + 3).Copy Cells(200 + j, k + 3)

''''''''''''''copy remarks''''''''''''''''''''''''
Cells(i, k + 7).Copy Cells(200 + j, k + 7)

j = j + 1
Else


End If




Next
Application.CutCopyMode = False


End Sub


Any help would be appreciated.

thanks!

 

[AlanY]

try

ThisWorkbook.Worksheets("Sheet1").Cells(1 + j, k) = Cells(i + 1, k).value

 

[Josephoo]

thanks alot for the help! didnt know i could do that.

 

[AlanY]

you're welcome