VBA - Pasting values rather than formulas

Hello fellow Excel users,

I'm struggling to come up with a solution to the below code. It works almost perfectly, but instead of copying formulas from the rows I select, I need the code to paste values.

Any chance that someone could help?

Sub CopySelectedRows()
  Dim rCopy As Range
  Dim lAreas As Long
  
  On Error Resume Next
  Set rCopy = Application.InputBox("Select Rows to copy. " _
  & "Use Ctrl for non-contiguous rows", "COPY ROWS", Selection.Address, , , , , 8)
  On Error GoTo 0
  If rCopy Is Nothing Then Exit Sub 'Hit Cancel
  
  If rCopy.Columns.Count <> Columns.Count Then
     MsgBox "Please select entire row(s)"
     Run "CopySelectedRows"
  Else
     For lAreas = 1 To rCopy.Areas.Count
        rCopy.Areas(lAreas).Copy Sheet1.Cells(Rows.Count, 1).End(xlUp)(2, 1)
        
     Next lAreas
  End If
  
End Sub

Many thanks in advance!