Create new column

[omidvakili]

Hi Guys
We have a series of columns,
We want to create a new page that:
Combining each column with other columns will create a new column, for example for column A, columns of AB, AC, AD, AE and AF should be created.
For columns B, columns of BC, BD, BE and BF should be created.
Finally, we need a code automatically creates these columns.
EXCEL.jpg

[paulked]

Hi and welcome to the forum.

Naming your columns A, B, C... is confusing eg Column A could contain "" Z Y X W... or 1 0 1 1...

I'm guessing you want something like this

VBAX67150.png

Which can be done with this

Sub test()
    Dim ar, i As Long, j As Long, k As Long
    ar = Range("B2:G8")
    k = 8
    For i = 1 To 5
        k = k + 1
        For j = 2 To 8
            Cells(j, k) = ar(j - 1, i) & ar(j - 1, i + 1)
        Next
    Next
End Sub

Format the destination cells as text.

[omidvakili]

Thanks a lot Paulked.
I think I couldn't express my mean but fortunately I found the solution:

Sub Blah()
Set Source = Range("B1:G1")
Set Destn = Range("H1")
For g = 1 To 5
  For h = g + 1 To 6
        Destn.Value = Join(Array(Source.Cells(g), Source.Cells(h)), "")
        Set Destn = Destn.Offset(1)
  Next
Next
End Sub

[p45cal]

Looks like an adaptation of my code from somewhere!

[omidvakili]

That's right.
I changed it.