Hi Bob,

Many thanks. What value(s) do Isubstitute for "A"?

Dave

"Bob Phillips" wrote:


For i = 3 to 303
Cells(i,"A").Entirerow.copy destination:=Cells(i-2,"A")
Next i


--

HTH

RP
(remove nothere from the email address if mailing direct)


"dave glynn" wrote in message
...
i have data spread across 6 columns and 300 rows. I have written a macro
that
moves data from row 3 to row 1. I want to repeat the macro so that it
performs the move for row 6 to row 4, row 9 to line 7 etc. Do i have to
paste
and copy the macro or is there a way of writing it only once so that it
repeats till the end of the range?