data arranging
 

hello

i have a series of data in one coulmn
A1, A2....An , i want to copy these data into another sheet with 10 numbers
of data in first row and from 11 to 20 in second row and so on..... i have
used following macro 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 10
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.Pasespecial x1value,Transpose:= True
Next
End with

It works properly but my question is that after 365 numbers of data, data
start from new row(Data must start from new row after 365 number of data).
One more thing , is it possiblt to link some data from another cell so that
this data repeats everytime after 365 number of data.

Thank you