VBA Macros Copying Value not formula

[lisacon7]

Hi,

I am trying to copy from one sheet to another but when I do the red text below contains a formula and brings that across instead. I have tried Paste Special but can't seem to get it to work does anyone have any help please?

'Copy and paste data from the Highlight Report worksheet to the Highlight Database worksheet
ReportDate.Copy DestCell
OFProjectNumber.Copy DestCell.Offset(0, 1)
OFProjectTitle.Copy DestCell.Offset(0, 2)
Progress.Copy DestCell.Offset(0, 3)
Budget.Copy DestCell.Offset(0, 4)
Scope.Copy DestCell.Offset(0, 5)
Resource.Copy DestCell.Offset(0, 6)
ProjectUpdate.Copy DestCell.Offset(0, 7)
NextSteps.Copy DestCell.Offset(0, 8)
Decisions.Copy DestCell.Offset(0, 9)

 

[Special-K99]

Am no VBA expert, so there may be a better way but this works, base something on this
A1 =3
B1=4
C1=A1+B1

Sub k1()
Set destcell = Range("D1")
Range("C1").Copy
With destcell.Offset(0, 1)
.PasteSpecial xlPasteValuesAndNumberFormats
End With
End Sub

Result is E1 = 7 (value not formula)