How to copy a range from a worksheet and paste it after the last row on another worksheet using VBA?

I have 2 solutions from a previous question that work, but both solutions copies and pastes the formulas.  I need it to only copy the values.

Saqib Husain, Syed:  

Sub mov2sht2()
 Dim sr As Range
 Dim tr As Range
 Set tr = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1)
 Set sr = Sheets("Sheet1").Range("A1").CurrentRegion.Offset(1)
 sr.Copy tr
 Range(tr, tr.End(xlDown)).Offset(, 4).Value = Date
 End Sub

Select allOpen in new window

Roy_Cox:

Sheet2.Range("A1").CurrentRegion.Offset(1).Copy Sheet3.Cells(Sheet3.Rows.Count, 1).End(xlUp).Offset(1)

Select allOpen in new window