Macro for copy data from. One sheet and arrange data in different columns

[Matrikmask]

Hi , can any one help me with macros for moving data from one column to other sheet with given specify range of column.
For example I have data in column sheet. A1 to A100, I want to data get copy to other sheet with range of 10 rows,i.e sheet 2,A1 to A10 in column A of other excel and A11 to A20 in column B like wise.

 

[footoo]

Sub v()
Dim r%, c%
c = 1
For r = 1 To 100 Step 10
    Sheets("Sheet1").[A1:A100].Item(r).Resize(10).Copy Sheets("Sheet2").Cells(1, c)
    c = c + 1
Next
End Sub

 

[Matrikmask]

Hi footoo,

thanks for your help. Also can you please help supposed I need to make custom selection of array i. e currently with this macro we can split data in 10 and if user want to split in 20 or 13 he can filed value in one column of excel suppose G1 as 20 and then click on button it will give output in 20 splits

 

[footoo]

Assuming you want to paste the data in column A of the active sheet (split per the number in G1) to "Sheet2" :

Sub v()
Dim rng As Range, r%, c%
Set rng = Range([A1], Cells(Rows.Count, 1).End(3))
c = 1
For r = 1 To rng.Rows.Count Step [G1]
    rng(r).Resize([G1]).Copy Sheets("Sheet2").Cells(1, c)
    c = c + 1
Next
End Sub