I have the following piece of code to copy and paste a row from one workbook to another.

Private Sub CommandButton1_Click()
Dim LR As Long
Workbooks.Open Filename:="K:\SS Community Safety Unit\Warden service\Data review\Data.xls"
With Workbooks("Data.xls")
    LR = .Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row
    Workbooks("Activity form.xls").Sheets("Form").Range("A50:V50").Copy _
    Destination:=.Sheets("Data").Range("A" & LR + 1)
'Save and Close workbook
    .Close SaveChanges:=True
    Application.CutCopyMode = False
End With
End Sub
It works fine apart from that it copies the formulas over when all I want is the cell value.

After having looked at many other options to do this I am stumped. Can anyone help me modify the above code to copy just the values of the cells?
I appreciate any help you can provide.

Many thanks