Lookup between two dates

Hello,
I need help how to 'convert' these line of code into the VBA?

LOOKUP(2;1/((J20>=Sheet2!$B$2:$B$25)*(J20<=Sheet2!$C$2:$C$25));Sheet2!$F$2:$F$24)

Thanks in advance!

Hi,

Assuming this question still needs an answer and the cell you want the formula placed is the active cell; try this:

ActiveCell.FormulaR1C1 = "=LOOKUP(2,1/((R[19]C[9]>=Sheet2!R2C2:R25C2)*(R[19]C[9]<=Sheet2!R2C3:R25C3)),Sheet2!R2C6:R24C6)"