You don't need VBA, a simple formula will suffice

=IF(A2<>A1,SUMIF(A:A,A2,D:D)/100,"")