here's one way, assuming the data starts in A2
Sub join_names()
Dim ws As Worksheet
Dim lastrow As Long
Dim i As Long
Set ws = Worksheets("Sheet1")
lastrow = ws.Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To lastrow
With Range("A" & i)
.Value = .Value & " " & .Offset(, 1).Value
End With
Next
End Sub
--
Gary
<(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
>I have the first name in column A and the last name in Column B and I
> want to take out the line between the two columns and put the first
> and last names in the same field. Your input is appreciated.
>
|