Delete break line between column A & B

[tom.greenan]

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.

 

[Gary Keramidas]

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