Dear Cheru

Try the below code. Mention the exception rows in variable strException.

If this post helps click Yes
---------------
Jacob Skaria

Dim intRow
Dim strException

strException = "1,4,17,18,21,34,35"

For intRow = 1 To 51
If InStr("," & strException & ",", "," & CStr(intRow) & ",") = 0 Then
Range("C" & intRow).FormulaR1C1 = "='Summary'!RC[-1]"
Range("D" & intRow).FormulaR1C1 = "='Summary'!RC[-2]"
End If
Next
Range("A1:L1").Select