Copying "=today()" function from one sheet to second one?

[Ronix]

Hi Guys, with this code below I am copying row 3 from first sheet to the second one. First cell A3 contains "=today()" function and automatically is copied to second sheet where data archive is. So I dont wanna copy function of A3 cell of first sheet but only its value to the second sheet. How can I secure this in this code below?

Sub Makro1()

If Sheets(1).Range("A4") = "" Then
PR1 = 3
Else: PR1 = Sheets(1).Range("A3").End(xlDown).Row
End If
If Sheets(2).Range("A4") = "" Then
PR2 = 3
Else: PR2 = Sheets(2).Range("A3").End(xlDown).Row
End If

For i = 3 To PR1
For j = 3 To PR2
If Sheets(1).Range("A" & i) = Sheets(2).Range("A" & j) And Sheets(1).Range("B" & i) = Sheets(2).Range("B" & j) And Sheets(1).Range("C" & i) = Sheets(2).Range("C" & j) Then
Sheets(2).Range("E" & j) = Sheets(2).Range("E" & j) + Sheets(1).Range("E" & i)
Sheets(2).Range("F" & j) = Sheets(2).Range("F" & j) + Sheets(1).Range("F" & i)
Sheets(2).Range("G" & j) = Sheets(2).Range("G" & j) + Sheets(1).Range("G" & i)
GoTo DalsieI
End If
Next j
Sheets(1).Range("A" & i & ":G" & i).Copy (Sheets(2).Range("A" & (PR2 + 1)))
PR2 = PR2 + 1
DalsieI:
Next i

Sheets(2).Select
End Sub

Thanks in advance!

 

[Andrew Poulsom]

Maybe:

Sheets(1).Range("A" & i & ":G" & i).Copy (Sheets(2).Range("A" & (PR2 + 1)))
With Sheets(2).Range("A" & (PR2 + 1))
    .Value = .Value
End With

 

[Ronix]

Thank you Andrew, it is working like a charm!