Data Horizontal to Vertical

Dim x As Integer
x = 1

For i = 1 To 2748

'Range("B1:B12").Select
rangeA = "B" & i
rangeB = "B" & i + 11
Range(rangeA, rangeB).Select
Selection.Copy
Range("D" & x).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

i = i + 11
x = x + 1
Next
End Sub