Sub reconciled()
Dim Cl As Range
For Each Cl In Range("K2", Range("K" & Rows.Count).End(xlUp)).SpecialCells(xlComments)
If InStr(1, Cl.Comment.Text, "ctax", 1) > 0 Then
Cl.Offset(, 6).Value = "Reconciled"
Cl.Offset(, -9).Resize(, 10).Interior.Color = vbBlue
End If
Next Cl
End Sub