Copy af sheet inklusiv formler

Hej,

Jeg får ikke mine formler flyttet med når jeg trykker på macro knap,
de aktuelle tal og tekst flytter over.

Eks. A4:A42 Tekst (flytter over som det skal)
        B4:B42 Tider (00:00:00 flytter over som det skal)
        C4:C42 Formler (Giver Sand/Falsk ud fra tid, Det er Sand/Falsk
der flyttes og ikke formlerne)

Formoder det er en "lille" tilretning i vbaén, håber der er en der
lige kan sige hvor det er den er gal....
------------------------------------------------------------------------------------------------------
Option Explicit
Dim ws As Worksheet, wsCopySheet As Worksheet
Dim rArea As Range, rLastcell As Range

Sub Button5()
    Copysheet ("Calculations10")
End Sub

Private Sub Copysheet(sh As String)
    Set ws = Sheets("Calculations")
    Set wsCopySheet = Sheets(sh)
    Set rLastcell = Range(wsCopySheet.Cells.Find(What:="*", _
                    After:=Range("A1"), _
                    LookAt:=xlPart, _
                    LookIn:=xlFormulas, _
                    SearchOrder:=xlByRows, _
                    SearchDirection:=xlPrevious, _
                    MatchCase:=False).Address)
    Set rArea = wsCopySheet.Range("A1", rLastcell.Address)
    ws.Range("A:XX").ClearContents
    ws.Range("A1", rLastcell.Address).Value = rArea.Value
End Sub
------------------------------------------------------------------------------------------------------

Henrik