Transpose data from row to column

[needassistance]

I have more then 10000 data in signle range A:A
I want macro script to get transpose data from a1 to black cell, to any colume e.g c and so on as per data
when it transpose then collect data from next cell mean after last blank cell
and transpose again.
is it possible ?
if yes then please provide me script. Asap
Thanks for your attention.

 

[needassistance]

Your script is transposing data in rows "i need to transpose data to columns"

 

[mirabeau]

Without a specific example I can't do anything more.

I guess you appreciate that having to operate on guesswork is a time waster for all participants.

You only need to provide a very simple example to illustrate what you want.

 

[mirabeau]

One more guess. Does this modified code do what you maybe want?

Sub copyranges3()
Dim colnum As Integer, e As Range, rng
colnum = 3
Set e = Range("A1")
Do
    If e(2) = "" Then
        e.Copy Cells(1, colnum)
        Set e = e.End(4)
    Else
        Range(e, e.End(4)).Copy Cells(1, colnum)
        Set e = e.End(4).End(4)
    End If
colnum = colnum + 1
Loop Until e.Row = Rows.Count
With Range("C1")
    rng = .CurrentRegion.Value
    .CurrentRegion.ClearContents
    .Resize(UBound(rng, 2), UBound(rng, 1)) = Application.Transpose(rng)
End With
End Sub

 

[needassistance]

its done thanks a lot. its exactly what i need thanks very much

 

[mirabeau]

Whee!!

At last!!!