Q:

Concatenate all values between two columns

I need to concatenate all values in Column A with each individual value in Column B. 
For example
This Dataset:
Column A   Column B 
Name       Device1     
Type       Device2     
Date       Device3    
Colour     Device4
           Device5  

Provides this desired output:
Device1Name       Device2Name      Device3Name    
Device1Type       Device2Type      Device3Type  
Device1Date       Device2Date      ... 
Device1Colour     Device2Colour    

Each one of the columns corresponds to a set of iterations from Column B.
Could you recommend a VBA code to achieve this? 

A:

Try this simple code that is independent of the number of items located in columns A or B:
    Sub ConcatCols()

    'Iterate over all cells in column A, unitl reach to the first empty cell
    Dim ra As Integer
    ra = 1
    Do Until IsEmpty(Cells(ra, 1))

        'Iterate over all cells in column B, unitl reach to the first empty cell
        Dim rb As Integer
        rb = 1
        Do Until IsEmpty(Cells(rb, 2))

            'Concatenate values and write in the next columns at row ra
            Cells(ra, 2 + rb).Value = Cells(rb, 2).Text & Cells(ra, 1).Text

            rb = rb + 1
        Loop

        ra = ra + 1
    Loop
End Sub

Result:

