Copy Value From Destination

[robocop1906]

Hello, I'd like to copy the value of the destination vs. the formula in column A2:A. See my code below.

Sub ConsolidateData2()
Dim LR As Long
With Sheets("RawStampData")
LR = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A2:A" & LR).Copy Destination:=Sheets("ConsolidatedData").Range("A" & Rows.Count).End(xlUp).Offset(1)

 

[Rijnsent]

.Range("A2:A" & LR).Copy Destination:=Sheets("ConsolidatedData").Range("A" & Rows.Count).End(xlUp).Offset(1)

->

.Range("A2:A" & LR).Copy Destination:=Sheets("ConsolidatedData").Range("A" & Rows.Count).End(xlUp).Offset(1,0).Row)

 

[Jonmo1]

You'd have to split it into 2 lines to do a paste special values

Try

.Range("A2:A" & LR).Copy
Sheets("ConsolidatedData").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues

Hope that helps.