crows = Cells(Rows.Count,"A").End(xlUp).Row
Range("A1").Resize(cRows,1).EntireRow.Copy
Destination:=Worksheets("Sheet1").Range("A8")

--

HTH

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


"choice" wrote in message
...
i have a range of data that varies in number of rows
i need to insert that (number) of rows onto sheet one
example
on sheet 2, the range is 26 rows
i need to insert 26 rows on sheet one between row 7 and 8

thanks in advance