With something that simple you could just write =F5-C5 and drag, but VBA:
Range("I5").FormulaR1C1 = "=IF(RC[-3]="""","""",RC[-3]-RC[-6])"
Range("I5").AutoFill Destination:=Range("I5:I" & lastrow), Type:=xlFillDefault
Also, your "lastrow" declaration should come first in that or it won't know what "lastrow" is.
EDIT: This completely ignores the fact that you're trying to set up arrays (if that's what you're trying to do). Let me know if this isn't what you're looking for, I suppose.