VBA Code - Change to paste values only

[Rick B]

I use the following VBA code to copy and paste cells based on a criteria. I need to change the code to only paste cell values and not cell format.

What do I need to change in the code?

Thank you

Sub UpdateScores()

    Dim c As Range, lastrow As Long


    lastrow = Cells(Rows.Count, "A").End(xlUp).Row


    Application.ScreenUpdating = False


    For Each c In Range("p4:p" & lastrow)
        If c.Value <> "" Then Range("k" & c.Row & ":p" & c.Row).Copy Range("j" & c.Row)
    Next c


    Application.ScreenUpdating = True
    
End Sub

 

[Michael M]

Try

Sub UpdateScores()
    Dim c As Range, lastrow As Long
    lastrow = Cells(Rows.Count, "A").End(xlUp).Row
    Application.ScreenUpdating = False
    For Each c In Range("p4:p" & lastrow)
        If c.Value <> "" Then
            Range("k" & c.Row & ":p" & c.Row).Copy
            Range("j" & c.Row).PasteSpecial Paste:=xlPasteValues
        End If
    Next c
    Application.ScreenUpdating = True
End Sub

 

[Rick B]

Michael,
Thank you for your quick response. That worked perfectly.

Best regards,

Rick

 

[Michael M]

Glad to help...