It can be done with a very small macro:

Sub Macro1()
Dim r1, r2 As Range
For i = 1 To 200
Set r1 = Sheets("Sheet1").Rows(i)
Set r2 = Sheets("Sheet2").Rows(9 * (i - 1) + 1)
r1.Copy r2
Next
End Sub



--
Gary's Student


" wrote:

I have say 200 rows in sheet 1.

I want to copy row 1 sheet 1 to row 1 of sheet 2
row 2 of sheet 1 to row 10 of sheet 2
row 3 to row 19
row 4 to row 28

ROW i gets copied to ROW 9*(i-1) + 1

Thanks for any help.