Using the code from the other thread that you said didn't compile, I think you intended for the second range to be the second argument to the Sub call, and not a separate line of code. Try this. You need to make sure that color index 19 matches the yellow you are using in your worksheet.
Sub test()
BlueNRose Sheets("SO Plan").Range("I16:P415"), Worksheets("SO2").Range("I16")
End Sub
Sub BlueNRose(rFr As Range, rTo As Range)
Dim i As Long, j As Long
rFr.Copy
rTo.PasteSpecial Paste:=xlPasteFormulas
For i = 1 To rFr.Rows.Count
For j = 1 To rFr.Columns.Count
If rFr(i, j).Interior.ColorIndex = 19 Then
rTo(i, j).Value = rTo(i, j).Value
End If
Next j
Next i
End Sub
Bookmarks