afzalw
05-09-2013, 03:14 PM
Can any one correct whats wrong with this code. I want to copy the last value in last cell of D column Sheet 2 to Sheet 1 cell B1.
Set rDest = Sheets(1).Range("B1")
rDest.Resize(1, 1).Value = ThisWorkbook.Sheets(2).Range("D2").End(xlDown).Value
Set rDest = Sheets(1).Range("B1")
rDest.Resize(1, 1).Value = ThisWorkbook.Sheets(2).Range("D2").End(xlDown).Value