Copy Value From Destination

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) 

LR = .Range("o" & Rows.Count).End(xlUp).Row
    .Range("o2:o" & LR).Copy Destination:=Sheets("ConsolidatedData").Range("j" & Rows.Count).End(xlUp).Offset(1)
End With
End Sub

Please use code tags when posting code to the forum per the forum rules.

I also don't really follow what you mean.

Dom

Something like:

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

LR = .Range("o" & Rows.Count).End(xlUp).Row
    .Range("o2:o" & LR).Copy Destination:=Sheets("ConsolidatedData").Range("j" & Rows.Count).End(xlUp).Offset(1)
End With
End Sub

not clear if you needed the same for the other copy?

Note: I have added code tags to your first post - please learn to use them in future when posting code.

Like this:

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

    LR = .Range("o" & Rows.Count).End(xlUp).Row
    .Range("o2:o" & LR).Copy
    Sheets("ConsolidatedData").Range("j" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
End With
End Sub

Dom

If it was mine you mean there was a small but significant error which I've now corrected.

Dom

On which? Do you have any merged cells?