I don't think this is exactly what you need, but it'll help

Sub Macro8()
Range("M1:P7").Select 'What to copy
Selection.Copy
Range("Q2").Select 'Where to paste it
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
End Sub