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 =...