Make print area dynamic & replace a SUMPRODUCT with code!

I guess you would want a custom function?

Public Function Sumproduct_Replacement(a as range, b as range, c as range, d as range, e as range)
dim rng, total,a1
set rng = c.find(d)
do until rng is nothing  
  if Sheets("Data").cells(rng.row,a.column) < b then a1 = 1 else a1 = 0
     total = total + (a1*cells(rng.row,c.column))
  end if
  set rng = Sheets("Data").cells.findnext(rng)
loop
next
end function

then in your cell
=Sumproduct_Replacement(Data!$A$2:$A$20<,$B$1,Data!$B$2:$B$20,$C$1,Data!$C$2:$C$20)