You did not indicate where to copy to. Meanwhile, how is this?

Range(ActiveCell, ActiveCell.End(xlDown)).EntireRow.copy
sheets(2).range("....)
YOu do not need looping


"cunning" wrote:


How would I go about coding a Loop to read rows of data from Sheet1 then
write the data to Sheet2 until an empty row is encountered?

Thanks for any assistance.


--
cunning
------------------------------------------------------------------------
cunning's Profile: http://www.excelforum.com/member.php...o&userid=26738
View this thread: http://www.excelforum.com/showthread...hreadid=399965