Solved: copy cell data

[inajica]

In Workbook1 I have two columns--A and B. In A I have cell references, and in column B I have numbers, and want to copy the numbers and paste them based on what the cell reference is into sheet2. I uploaded the file Workbook1. Thankyou for any help.

[shrivallabha]

Here is a code that will do as you need. Place this in Sheet1 module.

Sub PasteData()
With Sheet1
For i = 1 To .Range("A" & Rows.Count).End(xlUp).Row
Sheet3.Range(.Range("A" & i).Value) = .Range("B" & i).Value
Next i
End With
End Sub

Please note for now, I've made it Sheet3 instead of Sheet2 for comparison.

[inajica]

Thank you for the reply. The code was what I was looking for.