VBA Help : How to copy value from one cell to another as a new line with color

[anishms]

Hi All,
Request somebody to help on the subject
For example in the below code, how do I append the value in B1 to A1 as a new line instead of the space used in the code and with a red color

Cells(1, 1).Value = Cells(1, 1).Value & " " & Cells(1, 2).Value

Thanks in advance

 

[p45cal]

Sub blah()
With Cells(1, 1)
  myStart = Len(.Value) + 2
  'If Len(Cells(1, 2).Value) > 0 Then
    .Value = .Value & vbLf & Cells(1, 2).Value
    .Characters(Start:=myStart).Font.Color = vbRed
  'End If
End With
End Sub