Is it possible to change the formula below into a VB code? =SUMIF($A$11:A18,A18,$D$11:D18)-SUMIF($A$11:A18,A18,$F$11:F18)