VBA如果选择性粘贴数值，而不是公式？

以下代码我把工作簿中名为“安装”的工作表a1：a7范围的数据复制到新工作簿中，结果连公式复制了，我只想要数值，及选择性粘贴值，请问各位老师如何复制的数据不是公式而是值？请帮修改，谢谢！
Sub ABCD()
Dim lj As String
Dim dirname As String
Dim nm As String
lj = ActiveWorkbook.Path
nm = ActiveWorkbook.Name
dirname = Dir(lj & "\*.xls")
Cells.Clear
   Do While dirname <> ""
If dirname <> nm Then
Workbooks.Open Filename:=lj & "\" & dirname
Workbooks(nm).Activate
Workbooks(dirname).Sheets(“安装”).Range("A4:J15").Copy _
Sheets(1).Range("a65536").End(xlUp).Offset(1, 0)
Workbooks(dirname).Close False
    End If
dirname = Dir
    Loop
Rows("1:1").Select
    Selection.Delete Shift:=xlUp
    End Sub

Workbooks(dirname).Sheets(“安装”).Range("A4:J15").Copy _
Sheets(1).Range("a65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone