请问SUMPRODUCT(ISNUMBER(FIND("J0OC",I3:I2746))VBA怎么写

想请问各位大神以下的公式要如何在VBA呈现?感谢各位大神的帮忙!!
=SUMPRODUCT(ISNUMBER(FIND("J0OC",I3:I2746))(F3:F2746=67593000)(G3:G2744=PJ304),Q3:Q2746)+SUMPRODUCT(ISNUMBER(FIND("J0OC",I3:I2746))(F3:F2746=67578000)(G3:G2744=PJ304),Q3:Q2746)