VBA Code To Change Pasted Cells as Values

Could try

Sheets("Jan01").Range("O12") = .Range("A2")

etc.

You are copying on same cells so it will be overwritten.

for values use:

 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

with Sheets("Jan01")
.Range("O12:O13").value = .Range("O12:O13").value
.Range("Q16:Q17").value = .Range("Q16:Q17").value
end with

Application.ScreenUpdating = True
End Sub

Don't forget return Screenupdating at the end.

Try this

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

I also note that in both this and the OP code, every other line overwrites what was done in the preceding line.