>>549
A列　B列　C列　　D列　　　　　　E列　　　　　　　　F列以降
ID　　品名　型式　残数（入力）　残数（計算後）　　日付

でいいなら、
E2=D2-COUNTIF(F2:H2,">0")

D列をそのまま変更するのはvbaがいる上に結構めんどくさい
（コメントに元の数値を逃して、計算するなどの変な処理が必要）