VBA Transpose

[bloodmilksky]

Hi Guys,

I have been using the below code to transpose some order numbers

Sub TansposeRange()
 Dim InRange As Range
 Dim OutRange As Range
 Dim i As Long


 Set InRange = Sheet1.Range("B3:B10002")
 Set OutRange = Sheet2.Range("B2")


 InRange.Worksheet.Activate
 InRange.Select
 Selection.Copy


 OutRange.Worksheet.Activate
 OutRange.Select


 Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True


End Sub

What I want to know if it is possible to transpose the order numbers into everyother cell?

many thanks

Jamie

 

[RoryA]

Cross-posted here: VBA Transpose

Please read the forum rules on cross-posting and provide links to your other posts in future. Thanks.

 

[bloodmilksky]

my appologies i didnt mean to.