If X and Y then Replace Y
 

You may need to add the following line at the start

Dim c as range.

since c.Offset means nothing if c is not a range/cell.

http://www.excel-ant.co.uk