afzalw
07-29-2012, 10:46 AM
I got this code that copies values from a cell B5 in a sheet named "Distress Data" and paste it into shdest.cells
Set rDest = shDest.Cells(shDest.Rows.Count, 2).End(xlUp).Offset(1, 0)
rDest.Value = wbSource.Sheets("Distress Data").Range("B5").Value
My question is How can I change the second line to copy the last value in the column B.
Set rDest = shDest.Cells(shDest.Rows.Count, 2).End(xlUp).Offset(1, 0)
rDest.Value = wbSource.Sheets("Distress Data").Range("B5").Value
My question is How can I change the second line to copy the last value in the column B.