Hi Tom,

Manually:

Select Column B
Insert Column
Select B1
Insert formula      =A1&C1
Copy formula to last Row
Copy Column B
PasteSpecial Values
Select Column A
Delete

With VBA: (probably isn't the best way but works for me)

Sub CombineAandB()
   Application.ScreenUpdating = False
   Columns("B:B").Insert Shift:=xlToRight
   Range("B1").FormulaR1C1 = "=A1&C1"
   Range("B1:B" & Cells(Rows.Count, "A").End(xlUp).Row).FillDown
   Columns("B:B").Select
   Selection.Copy
   Selection.PasteSpecial xlvalues
   Columns("A:A").Select
   Selection.Delete
   Range("A1").Select
   Application.ScreenUpdating = True
End Sub

Both do means do replace the contents in column A.

Alan

one way

Sub Combine_And_B()
Dim ws As Worksheet
Dim lastrow As Long, i As Long
Set ws = Worksheets("Sheet1")
lastrow = ws.Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False

For i = 1 To lastrow  ' change 1 to your first row with data
     ws.Range("A" & i).Value = ws.Range("A" & i).Value & _
           ws.Range("B" & i).Value
Next
Application.ScreenUpdating = True

End Sub

Sub ConCatB()
Range("A1").Value = Range("A1").Value & Range("B1").Value
End Sub

Tom

=A1&B1

Or do you want a VBA method.

Sub test()
Dim rng As Range
Set rng = Range(Cells(1, "A"), Cells(Rows.Count, "A").End(xlUp))
       For Each cell In rng
         cell.Value = cell.Value & cell.Offset(0, 1).Value
      ' cell.Offset(0, 1).ClearContents 'optional
Next
End Sub

Gord Dibben  MS Excel MVP

You did say "move" the contents of column B so my bad.

Manually:

Select Column A
Insert Column
Select A1
Insert formula      =B1&C1
Copy formula to last Row
Copy Column A
PasteSpecial Values
Select Column B & C
Delete

With VBA: (probably isn't the best way but works for me)

Sub CombineAandB()
   Application.ScreenUpdating = False
   Columns("A:A").Insert Shift:=xlToRight
   Range("A1").FormulaR1C1 = "=B1&C1"
   Range("A1:A" & Cells(Rows.Count, "B").End(xlUp).Row).FillDown
   Columns("A:A").Select
   Selection.Copy
   Selection.PasteSpecial xlvalues
  Columns("B:C").Select
   Selection.Delete
   Range("A1").Select
   Application.ScreenUpdating = True
End Sub

"Alan" <R1C1@cinci.rr.com> wrote in message news:...