VBA Copy and Paste Cell Value Only Using Offset Resize

[Googles]

Hi All Here,
I am having problems with the code listed below, How can I Copy and Paste cell Value only Not the Formula?
Thanks

Sub CopyPaste2()    Dim x, R, C, Cols As Long
    Dim rngSource As Range
    Dim wksResult As Worksheet
    Set rngSource = Sheet1.Range("A1:D90")
    Sheet2.Range("B3:P57").ClearContents

    If Not rngSource Is Nothing Then
        Cols = 3
        If Cols > 0 Then
            Application.ScreenUpdating = False
            R = 55
            Set wksResult = Worksheets("Result1")
            For x = 0 To rngSource.Rows.Count Step R
                rngSource.Offset(x).Resize(R, rngSource.Columns.Count).Copy wksResult.Range("B3").Offset(, C)
                C = C + rngSource.Columns.Count
            Next
            Application.ScreenUpdating = True
        End If
    End If
End Sub

 

[Googles]

Ok. I'm Changed this code:
Thanks

                rngSource.Offset(x).Resize(R, rngSource.Columns.Count).Copy                wksResult.Range("B3").Offset(, C).PasteSpecial xlPasteValues