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:
[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD]4600[/TD]
[TD]PE[/TD]
[/TR]
[TR]
[TD]4606[/TD]
[TD]PB2
[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]4610[/TD]
[TD]PEM[/TD]
[/TR]
</tbody>[/TABLE]


After:
[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD]4600[/TD]
[TD]4600 PE[/TD]
[/TR]
[TR]
[TD]4606 [/TD]
[TD]4606 PB2
[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]4610[/TD]
[TD]4610 PEM
[/TD]
[/TR]
</tbody>[/TABLE]
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