Doesn't
Range("C2:D601").FormulaR1C1 = "='340 nm'!RC-'340 nm'!C3"
do it?