Pasting column details into a row

[johnpants]

Hello again, another small code change I am stuck with.

I have the code below that pastes a single cell to the next empty row, and then to the offset I require and works fine.

Sub Manual()
Application.ScreenUpdating = False
    Sheets("Calendar").Range("T4:T51").Copy
    Sheets("Data").Select
    LastRow = Range("A65536").End(xlUp).Offset(1, 11).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
    Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Now, the problem is that I want to amend this so that if I copy a range in a column, it will rotate it and paste it into the row. Get me? I have made the part I have changed bold (the column details I want to copy). The code above does work, but it pastes it vertically instead of horizontically.

Can anyone help me with this?

Tanks.

John.

 

[cfree36]

Change Transpose:=False

to Transpose:=True

 

[Andrew Poulsom]

Try changing:

Transpose:=False

to

Transpose:=True

 

[johnpants]

Thank you, shows my level of knowledge hey! hehe

At least now I know what transpose means too, so thanks again.

John.