Sub Joincolumn()
Dim c As Long
Dim lrow
lrow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
For c = 2 To lrow
Cells(c, 1) = Cells(c, 1) & Cells(c, 2)
Next c
'If you want to delete the contents of column B then Remove "'" from below lines.
'Columns("B:B").Select
'Selection.ClearContents
End Sub
Assuming your actual data starts in row 2...
Put the formula =A2&B2 in C2
Drag the formula in C2 down to the end of your data.
If the data in column C looks good...
Select from C2 to the bottom of the data in column C, and do a Copy (e.g. Ctrl-C).
Select A2 and Paste Special Values.
The contents of column C should then change, but you can ignore that.
Delete the contents of column C.