Isn't there a plain jane 'one liner' to past special values?
This works to the .Resize(1, 2).Copy then fails.

Thanks.
Howard

For Each c In ActiveSheet.Range("B10", ActiveSheet.Range("B10").End(xlToRight))
If c = FiMo Then
c.Offset(7, 0).Resize(1, 2).Copy Range("A7").PasteSpecial(xlPasteValues)
Exit Sub
End If
Next