Match and paste values

[Bagman]

I have the following code which works well. What I would like is to be able to paste the values of the copied ranges only; is this possible?

Sub test()
Application.ScreenUpdating = False
Dim rCell As Range
For Each rCell In Sheets("Report").Rows(1).SpecialCells(xlCellTypeConstants).
On Error Resume Next
With Sheets("Year 6")
.Columns(Application.Match(rCell, .Rows(5), 0)).Copy rCell
End With
Next rCell
Application.ScreenUpdating = True
End Sub