Straight from the Macro Recorder:

Sub Transpose()

Range("G1:M1").Select
Selection.Copy
Range("G9").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
End Sub

SuperJas.