about data copting

hello
i have a lot of data series in one column A1, A2.......An. i wanted to copy
these data and paste in another sheet with first 10 number of data in first
row and from 11 in second row ... I have used following macrows code:

Dim lastrow As long, lastCol As Long
Dim rng As range, i As long
With Worksheets("sheet1")
lastrow = .Cells(Rows.Count,1). End(X1Up).Row
For i = 1 To lastrow Step 11
Set rng = worksheets("sheet2")_
..Cells(rows.count,1).End(X1Up)(2)
lastcol = .Cells(i, 256).End(X1Toleft).Column
..Cells(i,1).Resize(11,lastcol).copy
rng.PasteSpecial x1value, Transpose:= True
Next
End with

It works properly but i need that after every 365 data it will start from
new row. One more thing is it possible to link some data from another cell
sothat it repeats every time after 365 data.

Thanks