how to stop this loop....

Hi, Vimala K,

no need for any loop IMO:

Sub EF972535()
On Error Resume Next
Range("K2:K" & Range("K" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeConstants, 23).Offset(0, 1).FormulaR1C1 = "=RC[-11]"
If Err <> 0 Then
  MsgBox "No cells in Column K as constants"
End If
End Sub

@Fonzie:
I doubt your code is taking care of Column K being filled?

Ciao,
Holger

Thanks Ciao Holger!

Vimalanathk,
Try out this code.

Sub test()
Dim row As Long
row = 2
Do
    If Cells(row, 1).Value <> "x" And Cells(row, 1).Value <> "" Then
        Cells(row, 12).Value = "=+RC[-11]"
    End If
    row = row + 1
Loop Until Cells(row, 3).Value = "Powered by GL Compliance Manager"
End Sub

Thanks,
Fonzie