vba рутина не работает после первой работы отлично

Question

Моя рутина, которая раньше работала идеально, внезапно приводит к ошибкам. Я не понимаю, почему, единственное, о чем я могу думать, - это новая офисная версия, которая больше не работает. Мы перешли с Office 2013 на Office 2016 (уже некоторое время go, но я некоторое время не использовал этот шаблон).

Это код, который приводит к ошибкам:

Sub kopie_formule()
Dim x As Integer
Dim aantalrijen As Integer
Dim NB As Variant

With Worksheets("Promo Evaluatie")

'.Unprotect Password:="TM"
x = 13
    aantalrijen = .Range("B14", .Range("B13").End(xlDown)).Cells.Count
    .Range("Y14:Y" & aantalrijen + x) = "=IF(ISERROR((RC[-7]-RC[-2])),""#N/B"",IF(RC[-7]-RC[-2]<0,0,(RC[-7]-RC[-2])))"
    .Range("Z14:Z" & aantalrijen + x) = "=IF(ISERROR(RC[-1]/RC[-8]),""#N/B"",RC[-1]/RC[-8])"
    .Range("AA14:AA" & aantalrijen + x) = "=IF(ISERROR(RC[-9]/RC[-5]),"""",RC[-9]/RC[-5])"
    .Range("AB14:AB" & aantalrijen + x) = "=IF(ISERROR(RC[-12]*RC[-2]),""#N/B"",RC[-12]*RC[-2])"
    .Range("AC14:AC" & aantalrijen + x) = "=IF(ISERROR(RC[-9]/RC[-24]/RC[-8]),""#N/B"",RC[-9]/RC[-24]/RC[-8])"
    .Range("AD14:AD" & aantalrijen + x) = "=IF(ISERROR(RC[-7]/RC[-25]/RC[-6]),""#N/B"",RC[-7]/RC[-25]/RC[-6])"
    .Range("AE14:AE" & aantalrijen + x) = "=IF(RC[-12]="""",""#N/B"",IF(RC[-10]="""",""#N/B"",IF(RC[-26]="""",""#N/B"",RC[-12]-(RC[-10]*RC[-26]))))"
    .Range("AF14:AF" & aantalrijen + x) = "=IF(ISERROR(RC[-1]*0.5),""#N/B"",RC[-1]*0.5)"
    .Range("AG14:AG" & aantalrijen + x) = "=IF(ISERROR((RC[-1]*0.5)-RC[-5]-RC[-18]),""#N/B"",(RC[-1]*0.5)-RC[-5]-RC[-18])"
    .Range("AH14:AH" & aantalrijen + x) = "=IF(ISERROR((RC[-2]*0.5)-RC[-20]-RC[-6]-RC[-19]),""#N/B"",(RC[-2]*0.5)-RC[-20]-RC[-6]-RC[-19])"
    .Range("AI14:AI" & aantalrijen + x) = "=IF(ISERROR((RC[-21]+RC[-19]+RC[-20])/RC[-4]),""#N/B"",IF(((RC[-21]+RC[-19]+RC[-20])/RC[-4])<0,""#N/B"",((RC[-21]+RC[-19]+RC[-20])/RC[-4])))"
    .Range("AJ14:AJ" & aantalrijen + x) = "=IF(ISERROR((RC[-22]+RC[-20]+RC[-8]+RC[-21])/RC[-5]),""#N/B"",IF(((RC[-22]+RC[-20]+RC[-8]+RC[-21])/RC[-5])<0,""#N/B"",(RC[-22]+RC[-20]+RC[-8]+RC[-21])/RC[-5]))"

это ошибка:

Ошибка 1004 во время выполнения: ошибка, определенная приложением или объектом.

Возможно, это связано с тем, что мой код несовместим с Office 2016