Macro Partial Cell Copy and Paste

[TikeMyson]

I've looked all over, but I can't find a solution for my problem.

When recording a macro, how do you copy text from one cell, and append/paste it after the existing text in another cell.

Before:

4600	PE
4606	PB2
4610	PEM

<tbody>
</tbody>

After:

4600	4600 PE
4606	4606 PB2
4610	4610 PEM

<tbody>
</tbody>

I have hundreds of these I have to do so I'd like to have some kind of macro/automation do it for me.

 

[mrshl9898]

You may want to look at concatenate.

Though if you need a macro, something like this (hard to be exact without any additional details):

Sub append()

Dim mystring As String


mystring = Sheets("Sheet1").Range("B2").Value


Sheets("Sheet1").Range("B2").Value = Sheets("Sheet1").Range("A2").Value & " " & mystring


End Sub