Basic Help: Copy value from one sheet to another

[afzalw]

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

[snb]

Sheets("Sheet1").Range("B1") = ThisWorkbook.Sheets("sheet2").cells(rows.count,4).End(xlUp).Value