I believe AVERAGEIF is available in Excel 2007?

=AVERAGEIF(A1:A8, ">0", A1:A8)