Copy cell contents in given order from one workbook to another

[selant]

How can i copy contents of cells in desired format from one workbook to another in the following format with VBA code :

A!H1 to B!K1
A!H2 to B!L1

A!H3 to B!K2
A!H4 to B!L2

......
.......

 

[selant]

bump. how will i create the offset order in for-next loop ??

 

[selant]

In a for-next loop, how can i make a variable increase 1 by 1, while other variable is increasing by 2.

a1 > b1
a2 > b3
a3 > b5
.....

 

[Peter_SSs]

For the question asked in post #1, see if this helps

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