Code to copy formulas and values with offset on both

Question

Here is the code I’m trying. When I try to use paste values I get the 1004 error.

Private Sub CommandButton1_Click()

Dim WB As Workbook Dim WS As Worksheet