Copy and Special Paste, Values with VBA

Question

The code I have so far seems to be working. The only issue is that I seem to be copying the array formulas instead of just the value of the array formula. Is there a way to have my existing code paste special (just values) or do I need a new method entirely?

Dim s1 As Excel.Worksheet
Dim destsh As Excel.Worksheet
Dim iLastCelldestsh As Excel.Range
Dim iLastRowS1 As Long

Set s1 = Sheets("RAW - Greenphire")
Set destsh = Sheets("RAW - Concatenated")

'get last row of Q in RAW - Greenphire
    iLastRowS1 = s1.Cells(s1.Rows.Count, "Q").End(xlUp).Row
'get last AVAILABLE cell to paste into
    Set iLastCelldestsh = destsh.Cells(destsh.Rows.Count, "A").End(xlUp).Offset(1, 0)
'copy into RAW - Concatenated
    s1.Range("Q2", s1.Cells(iLastRowS1, "Q")).Copy iLastCelldestsh

Answer 1

Transfer values only without the clipboard.

with s1.Range("Q2", s1.Cells(s1.Rows.Count, "Q").End(xlUp))
   destsh.Cells(destsh.Rows.Count, "A").End(xlUp).Offset(1, 0).resize(.rows.count, .columns.count) = .value
end with

Answer 2

You may use PasteSpecial to paste the values only like below...

s1.Range("Q2", s1.Cells(iLastRowS1, "Q")).Copy
iLastCelldestsh.PasteSpecial xlPasteValues