Conditional Autofill

Hi all! I've got this problem and it's really bugging me!!

Say, I've got Sheet 1 (attached) and there's some formula (assume it's some VLOOKUP formula) on D3. I basically need some macro that would autofill the formula in D3 down to all the other cells in column D, EXCEPT for those cells with no corresponding value in the B column and those with "Total".

Any help would be greatly appreciated. Thanks!

Instead of code, how about a formula to do exactly the same thing. It
works by nesting your VLOOKUP into an IF:
=IF(AND(B1<>"",ISNUMBER(SEARCH("total",D1,1))), your vlookup formula
here,"")