Thread: Change code to copy as values

How can I change the copy Destination: line of code to copy as values?

i = 105
P = 5
Do Until shtL.Cells(i + 4, 3) = ""
 
    Set rCopy = shtL.Cells(i, 47).Resize(1, 223)

        If shtL.Cells(i, 3).End(xlDown).row < 109 Then
            rCopy.copy Destination:=shtL.Cells(5, 47)
        Else
            rCopy.copy Destination:=shtL.Cells(P, 47)
        End If

    i = i + 7
    P = P + 1
Loop

You can use the PasteSpecial method, requiring the destination command on a line of its own:

i = 105
P = 5
Do Until shtL.Cells(i + 4, 3) = ""
 
    Set rCopy = shtL.Cells(i, 47).Resize(1, 223)

        rCopy.Copy 

        If shtL.Cells(i, 3).End(xlDown).row < 109 Then
            shtL.Cells(5, 47).PasteSpecial xlPasteValues
        Else
            shtL.Cells(P, 47).PasteSpecial xlPasteValues
        End If

    i = i + 7
    P = P + 1
Loop