There is more than one way to do this, but no matter how you do it I can't give the exact code without knowing what you have to start with. Here is one example that literally uses VLOOKUP:
Worksheets("PR").Cells(r, "E") = Application.WorksheetFunction.VLookup(Worksheets("PR").Cells(r, "B"), Worksheets("DA").Range("B:C"), 2)
where r is the row number on PR where you want to lookup/insert a value. The number of rows you have doesn't matter.
Another way using Find instead of VLOOKUP:
Worksheets("PR").Cells(R, "E") = Worksheets("DA").Cells(Worksheets("DA").Range("B:B").Find(Worksheets("PR").Cells(R, "B")).Row, "C")
The code can be streamlined a bit if I knew what module you were putting it in.
Bookmarks