PasteRange(originRng As String, destCell As String)
    With ActiveSheet
        Dim r As Range
        Set r = .Range(originRng)
        r.Copy

        Dim r2 As Range
        Set r2 = .Range(destCell)

        r2.PasteSpecial xlPasteAll
    End With

End Sub