Edit this code so it pastes as values

[NathanJC]

Hello, was hoping to get some assistance with the below code to include pastes special values

Sub copyData()

    Sheets("Current Month VB Comm").Select
    lr = Cells.Find("*", Cells(1, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False).Row
    Range("A2:E" & lr).Copy
    Sheets("VB ALL").Select
    lrTarget = Cells.Find("*", Cells(1, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False).Row
    Cells(lrTarget + 1, 1).Select
    ActiveSheet.Paste
    Columns("A:E").AutoFit
    Cells(1, 1).Select

End Sub

 

[RoryA]

Welcome to the forum.

Please change this:

    Cells(lrTarget + 1, 1).Select
    ActiveSheet.Paste

to this:

    Cells(lrTarget + 1, 1).PasteSpecial xlPasteValues

 

[NathanJC]

Welcome to the forum.

Please change this:

    Cells(lrTarget + 1, 1).Select
    ActiveSheet.Paste

to this:

    Cells(lrTarget + 1, 1).PasteSpecial xlPasteValues

Amazing thankyou so much, @RoryA. I worked