Combining text in two merged cells

[alexg7828]

I have two merged groups of cells, both with multi line text and name as ranges (Range1 and Range2) both can be varying lengths.

I have a form, if a specified check box is ticked i want to copy the text in Range 2 to Range 1 with a line break and then format the Range 2 text to bold red.

I was thinking something like below but cant quite work out wether it should be a copy, concenate or something different ... or impossible.

If check_DemInfo.Value = True Then
    Range("Range1").Copy
    Range("Temp_1").PasteSpecial xlPasteValues
    Range("Temp_1").PasteSpecial xlPasteFormats
    Range("Range2").Copy
    Range("Temp_2").PasteSpecial xlPasteValues
    Range("Temp_2").PasteSpecial xlPasteFormats
    Range("Range1").Value = Range("Temp_1") & Range("Temp_2")
End If

 

[DanteAmor]

copy the text in Range 2 to Range 1 with a line break and then format the Range 2 text to bold red.

If you want in red bold the part2 that was added to the cell
Before Something like this:

After:

Then, try this:

Sub CopyData()
  Dim n As Long
  With Range("Range1")
    .Font.Bold = False
    n = Len(.Value)
    .Value = .Value & Chr(10) & Range("Range2").Value
    With .Characters(n + 2, Len(Range("Range2").Value)).Font
      .Bold = True
      .Color = vbRed
    End With
  End With
End Sub