A looping macro something like this
for i = 1 to ?? step 4
dr=1
rows(i).copy sheets("ds").cells(dr,1)
dr=dr+1
next i


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Cindy" wrote in message
...
I several pages of lists where I need to pull every 4th row and send that
data to a new page. Is there a way to do this? Also, would like when it
does pull every 4th row and puts it in a new column to not have 3 blank
cells. Using Excel 2003.