设定范围方法失败

Question

这似乎是一个非常简单的问题。以下宏在线失败： 设置rngs = wss.range（单元格（8，1），单元格（21，13）） 错误1004：“ object'_worksheet的方法'范围失败。”

想法？谢谢。

Sub CreateSummaryNew()
Dim Pn, As Integer
Dim RngP, RngS As Range
Dim wsP, wsS As Worksheet

Pn = ActiveSheet.Range("G3")
Set wsP = ActiveWorkbook.Sheets(Pn)
Set wsS = ActiveWorkbook.Sheets(Pn + 30)

Set RngP = wsP.Range(Cells(8, 31), Cells(21, 43))
Set RngS = wsS.Range(Cells(8, 1), Cells(21, 13))
RngP.Copy (RngS.PasteSpecial(Paste:=xlPasteValues))

End Sub