VBA Transpose

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