Or like this to only transposte the 2 and 3:

With ActiveCell
.Offset(1, 0).Resize(2, 1).Copy
.Offset(0, 1).PasteSpecial Transpose:=True
End With

"Rowan" wrote:

This should do what you have asked but if you have hundreds to do you
probably want to put it into some kind of loop:

With ActiveCell
.Resize(3, 1).Copy
.Offset(0, 1).PasteSpecial Transpose:=True
End With

Regards
Rowan

"Steved" wrote:

Someting similar to below please.

Sub ToRow()
Range("Down 2").Select
Selection.Cut
Range("Right").Select
ActiveSheet.Paste
End Sub




"Steved" wrote:

Hello from Steved

I have
1
2
3
to be
1 2 3 please

I have several hundred to do, I do not mind placing the cursor on the first
line of the data and the macro highliting the next 2 rows down then
transposing it to the right.

As an example in column A1 1, A2 2, A3, 3
The macro when executed after I put the cursor in A1 it will then highlite
the 3 cells then transpose rows A2, A3 to B1, B2.

Thankyou.