Copy info of a name range

[SamT]

[VBA]
Dim rCopy As Range
Dim rPaste As Range
Set rCopy = B1.Range("usInput")
Set rPaste = B2.Range("usInput")

For i = 1 to rCopy.count
rCopy.Cells(i) Copy
rPaste.Cells(i).PasteSpecial(xlValues)
Next i[/VBA]