The first post was if you wanted to cut and paste the values, but if you just
want to copy them, you simply need to copy, paste-special transpose the cells!

In that case, here you go:

Sub CopyPasteSpecial()
Range(ActiveCell, ActiveCell.Offset(2, 0)).Copy
ActiveCell.Offset(-1, 1).PasteSpecial Paste:=xlPasteAll, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Application.CutCopyMode = False
End Sub

Hope this helps, Jim
--
I appreciate any feedback.