Wklej alternatywne kolumny z jednego arkusza do drugiego, w alternatywnych kolumnach

Mam dwa arkusze, chcę wklejać kolumny jedna po drugiej z arkusza 1 do kolumn jedna po drugiej. Moje dane są takie:

Arkusz 1:
  ABCDEFGHIJKLMNOPQRSTU V 
  12 14 9 20 6 7 21 6 23 12 23
   2 4 5 6 8 9 9 0 7 5 12 
   1 12 14 14 15 6 43 21 65 5 33

Arkusz 2:
 ABCDEFGHIJKLMNOPQRSTU V
  1 2 4 2 23 13 4 6 7 56 45
 12 13 13 12 14 13 34 34 65 75 4
 11 22 33 44 44 23 24 54 32 23 12

Chcę wkleić kolumnę A z arkusza 1 do arkusza 2 w kolumnie B, podobnie chcę wkleić kolumnę C w arkuszu 1 do kolumny D w arkuszu 2 i tak dalej.

Mam odpowiednio około 24 takich wierszy i 326 kolumn w arkuszu 1 i 2. Uprzejmie poprowadzi mnie po automatycznej procedurze związanej z tego rodzaju wklejaniem? Korzystam z programu Excel 2010.

Wstaw kolumnę po lewej stronie Arkusza2, aw nowym arkuszu A1 wpisz:

=IF(ISODD(COLUMN()),Sheet1!A1,Sheet2!A1)  

kopiuj w dół i w dół, aby dopasować

To makro robi to za Ciebie

Sub Button4_Click()

Dim col As Integer
col = 65

Dim preCol As Integer
preCol = 64

Do While (True)    

    If (col > 90) Then
        preCol = preCol + 1
        col = 65
    End If

    If (preCol = 64) Then

        If (Sheets("Sheet1").Range(Chr(col) & "1") = "") Then
            Exit Do
        End If

        Sheets("Sheet1").Columns(Chr(col) & ":" & Chr(col)).Copy Sheets("Sheet2").Range(Chr(col + 1) & "1")

    Else

        If (Sheets("Sheet1").Range(Chr(preCol) & Chr(col) & "1") = "") Then
            Exit Do
        End If

        Sheets("Sheet1").Columns(Chr(preCol) & Chr(col) & ":" & Chr(preCol) & Chr(col)).Copy Sheets("Sheet2").Range(Chr(preCol) & Chr(col + 1) & "1")

    End If

col = col + 2
Loop

End Sub