Combine Two Colums

[Sawyer]

Hello All
Need help with the script below or maybe a better one. I need to combine the
items in Column A and Column B into one Column
The one below will combine the data into one column but it is backward, I
need the text in column B to be added after the text in column A
Thanks for any help Scott

Sub addData()
For r = 2 To 100
Cells(r, "D").Value = "@website.com" & Cells(r, "D").Value
Next r
End Sub


This is what I have
A B C D
E
1 Jimmy @website.com
2 Jimmy @website.com
3 Jimmy @website.com
4 Jimmy @website.com
5
6
Sample of what I need

a b c
d e
1 [email protected]
2 [email protected]
3 [email protected]
4 [email protected]
5 [email protected]
6
7
8

 

[JMB]

You could just enter =A1&B1 in cell D1 and copy it down.

 

[RajKohli]

Apply the formula said by JMB and after that hide the original columns if you
don't want them. Donot delete them.

 

[excelent]

Sub addData2()
Dim r
For r = 2 To 100
Cells(r, 1).Value = Cells(r, 1).Value & Cells(r, 2)
Next r
End Sub