Sub selantCopy()
Dim mySource As Range, cell As Range
Dim r As Long, c As Long
With Sheets("A")
Set mySource = .Range("H1", .Range("H" & .Rows.Count).End(xlUp))
End With
r = 1
c = 11
For Each cell In mySource
Sheets("B").Cells(r, c).Value = cell.Value
If c = 12 Then
c = 11
r = r + 1
Else
c = 12
End If
Next cell
End Sub