Moving Data on a worksheet

[Abgar]

Hi guys,

Hopefully a quick and easy one - i have copied some data from an external application to Excel, and the information copies as one continuous ROW of data, where it should be split across rows.
A basic example:

Excel Workbook
	A	B	C	D	E	F	G	H	I
1	11	12	13	21	22	23	31	32	33
Sheet1

And i need to the outcome to be similar to:

Excel Workbook
	A	B	C
1	11	12	13
2	21	22	23
3	31	32	33
Sheet1

In the above example, the data is in sets of 3, but in my actual example, it is in sets of 15 (i.e. i would need A1:N1 to stay on row 1, and then O1:AC1 should be moved to be A2:N2 etc etc).

Hoping for an editable solution, that i can quickly change the number of cells if required, and also suit variable numbers of data sets.

Any help is always appreciated

Thanks so much

 

[Abgar]

Sorry to bump the post, but does anyone have any ideas on this?

Even if you can point in the right direction?

Cheers so much

 

[Sektor]

Sub G()

    Dim i As Integer, j As Integer, f As Integer, iUBound As Integer
    Dim arr As Variant, arrNew() As Variant
    
    arr = WorksheetFunction.Transpose(Range("A1", Range("A1").End(xlToRight)))
    iUBound = CInt(UBound(arr) / 3) + 1
    ReDim arrNew(1 To iUBound, 1 To 3)
    
    f = 1
    For i = 1 To UBound(arr, 1)
        j = j + 1
        arrNew(f, j) = arr(i, 1)
        If i Mod 3 = 0 Then
            j = 0
            f = f + 1
        End If
    Next
    
    Range("A3").Resize(UBound(arrNew, 1), 3) = arrNew

End Sub

 

[Abgar]

Oh Sektor, That works perfectly

Thanks so much for your help