vba中的不同工作簿之间的复制和选择性粘贴问题求大神帮忙！！

Sub 汇总()
Dim sr$, wb As Workbook, ws As Worksheet, rngs As Range
Dim cell As Range
sr = Dir(ThisWorkbook.Path & "\*考勤表*.xlsm")
Do
Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & sr)
For Each ws In wb.Worksheets
If ws.Name = "统计用表" Then
Set rngs = ws.Range("b7", ws.[y22].End(xlDown))
Set cell = ThisWorkbook.Worksheets(1).Cells(Rows.Count, 2).End(xlUp)(2, 1)
rngs.Copy
cell.pastespecial paste:=xlvalues
↑↑↑↑↑↑↑↑↑↑↑↑↑↑这里这个吧regs这个区域复制 到cell单元格 怎么设置成选择性粘贴为数值？？？？？
End If
Next
wb.Close
sr = Dir
Loop Until sr = ""
End Sub
试下？不行就录一段选择性粘贴的宏