copy every fifth row and paste

Gary
if you have a loop that detects all the way to the bottom of you spreadsheet eg :--

For returncount = 2 To 20
If ActiveSheet.Cells(returncount, 1).Value <> "" Then
lastentry = returncount
End If
Nex

Then lastcount will be the last row with data in it, then create another loop which is :-

fifth = 1
for counter = 1 to lastcount
fifth = fifth + 1
if fifth = 5 then
'write the row somewhere'
fifth = 0
endif
next

The above is not precise- and could be done in one loop, but it should give you the idea.

Furg