That beats my 6 lines.
RC = Rows.Count Do Rw = Cells(1, 19).End(xlDown).Row Cells(Rw, 15) = Cells(Rw,15) & " " & Cells(Rw, 16) 'Edit for FirstName LastName Cells(Rw,16.Delete Shift:=xlLeft 'Always do bottom Row, It might need it and a lot of code to skip otherwise Loop While Rw < RC