VBA - CopyTo with values not formula's

[Sayth]

I am using this code to copy from one sheet to another. They are both in the same workbook.

    lngLastRow = Cells(1, 1).End(xlDown).Row
    With Sheets("Datasheet")
        .Range("C1:F" & lngLastRow).Copy Destination:=Sheets("Sheet3").Range("A1")
        .Range("M1:N" & lngLastRow).Copy Destination:=Sheets("Sheet3").Range("E1")
        .Range("BJ1:BU" & lngLastRow).Copy Destination:=Sheets("Sheet3").Range("H1")
        .Range("BY1:BY" & lngLastRow).Copy Destination:=Sheets("Sheet3").Range("T1")
        .Range("BX1:BY" & lngLastRow).Copy Destination:=Sheets("Sheet3").Range("U1")
        .Range("CA1:CP" & lngLastRow).Copy Destination:=Sheets("Sheet3").Range("V1")
    End With

I want the values to copy not the formulas. On the sheet I am copying to I have Zero's everywhere and I can see that the formula's don't reference. I don't really need the formula's they are still on the other sheet. The errors look like

=IFERROR((#REF!-(((#REF!/SUM((#REF!*1.2),#REF!,(A2*0.8)))*SUM(#REF!,(A2*0.8)))*0.8))/#REF!*(#REF!/(#REF!-(#REF!+(A2*0.8)))),0)

 

[VoG]

Try like this

lngLastRow = Cells(1, 1).End(xlDown).Row
    With Sheets("Datasheet")
        .Range("C1:F" & lngLastRow).Copy
        Sheets("Sheet3").Range("A1").PasteSpecial Paste:=xlPasteValues

 

[Sayth]

Thank you. That works perfectly