Jim
I doubt this is the full extent of your issue, but using you example...
Sub TransposeRng()
Range("A1:E1").Value = Range("A1:A5").Value
Range("A2:A5").Clear
End Sub
Post back when you want this done for many columns 
Regards
Nick Hodge
Microsoft MVP, Excel
Southampton, UK