macro ekak run karanna
Option Explicit
Sub fontcolor()
Dim myRng As Range
Dim myCell As Range
Dim wks As Worksheet
Set wks = Worksheets("Sheet1")
With wks
Set myRng = .Range("a2", .Cells(.Rows.Count, "A").End(xlUp))
End With
For Each myCell In myRng.Cells
With myCell
.Offset(0, 2).Value = .Value & " " & .Offset(0, 1).Value
.Offset(0, 2).Characters(, Len(myCell)).Font.ColorIndex = 3
'.Characters(
End With
Next myCell
End Sub