need correction in code

I have a macro created by someone which I should modify to copy the VALUE not the formula.
Please help me to modify the line to copy and paste only the VALUE.

Code.Offset(0, 6).Copy wsR.Range("F" & NR, "F" & BR)

If LR > 1 Then
                wsD.Range("A2:E" & LR).Copy wsR.Range("A" & NR)
                BR = wsR.Range("E" & wsR.Rows.Count).End(xlUp).Row
                Code.Offset(0, 6).Copy wsR.Range("F" & NR, "F" & BR)
                NR = BR + 1
End If

Change it to

Code.Offset(0, 6).Copy
wsR.Range("F" & NR, "F" & BR).pastespecial paste:=xlvalues

And

If LR > 1 Then
                wsD.Range("A2:E" & LR).Copy
                wsR.Range("A" & NR).pastespecial paste:=xlvalues
                BR = wsR.Range("E" & wsR.Rows.Count).End(xlUp).Row
                Code.Offset(0, 6).Copy
                wsR.Range("F" & NR, "F" & BR).pastespecial paste:=xlvalues
                NR = BR + 1
End If

Consider the difference between:

Range("D1") = Range("C1").Value

and:

Range("E1") = Range("C1").Formula

You should be able to adapt the first method.

Regards, TMS