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.