VBA Code To Change Pasted Cells as Values

Hello Everyone,
Using Excel 2010

I have a workbook that copies certain cells from sheet J1 (which are colored and have formulas) and paste them into cells in sheet Jan01. The code works but I need to have the pasted cells pasted as values. Appreciate any help adjusting the code to make them pasted cells. Thanks.
Mike

Sub Test()
    Application.ScreenUpdating = False
    With Sheets("J1")
        .Range("A2:A3").Copy Sheets("Jan01").Range("O12:O13")
        .Range("B2:B3").Copy Sheets("Jan01").Range("Q12:Q13")
        .Range("D2:D3").Copy Sheets("Jan01").Range("O16:O17")
        .Range("E2:E3").Copy Sheets("Jan01").Range("Q16:Q17")
         End With
End Sub