怎么把复制的内容从公式改变成数值

Sub 按钮3_单击()

Dim iRowo As Long
Dim irowt As Long
iRowo = Range("a65535").End(xlUp).Row
irowt = Sheet2.Range("a65535").End(xlUp).Row + 1 '最后不为空的行号加1
Range("A33:F" & iRowo).Copy Sheet2.Range("a" & irowt) '复制A2到F(N)，N为表一中最后一行行号，可以用Range("a2").Copy Sheet2.Range("a1")来替换。
End Sub
。用这个宏复制过去的内容都是公式，怎么改变一下，使其复制过去变成数值。因为复制区域是计算公式，如果照这个代码复制过去也是公式，就达不到我的目的了，求师傅帮帮忙

可以把复制和粘贴分两步走：
Sub 按钮3_单击()
Dim iRowo As Long
Dim irowt As Long
iRowo = Range("a65535").End(xlUp).Row
irowt = Sheet2.Range("a65535").End(xlUp).Row + 1
Range("A33:F" & iRowo).Copy   '先复制
Sheet2.Range("a" & irowt).PasteSpecial xlPasteValues '再选择性粘贴
End Sub还可以这样（直接赋值，不用复制粘贴）：
Sub 按钮3_单击()
Dim iRowo As Long
Dim irowt As Long
iRowo = Range("a65535").End(xlUp).Row
irowt = Sheet2.Range("a65535").End(xlUp).Row + 1
Sheet2.Range("a" & irowt & ":f" & irowt + iRowo - 33).Value = Range("A33:F" & iRowo).Value
End Sub

在复制内容的以后，会出现一个图标，选择只复制数值就可以了： 1.复制完成以后，在复制区域就会出现下图中的按钮，点击进行选择； 2.在弹出的选项框中，选择“值和数值格式”就可以。