How about this:
Sub YourCodeName()
Range("a1").Select '<-- The cell that contains the formula you need to
copy
Selection.Copy '<--copy into clipboard

For intx = 1 To lngrow '<--start your For loop as usual
Cells(intx, 1).Select
If InStr(1, ActiveCell.Value, " Target Renewal") 0 Then
Range(Cells(intx, 6), Cells(intx, 20)).Select
ActiveSheet.Paste
Endif
Next Intx

.... or something like that?