求教VBA宏中IF嵌套长公式该如何编写整个过程？

惠小会

Q1:求教：怎么将EXCEL表中这个可以成功使用的公式 '=IF(Sheet1!L2="FOB","工厂FOB报关",IF(Sheet1!L2="N","不退税报关","正式报关出口"))
应用在VBA中，使其能正常使用，并且对多行这一列都可以带入结果，我是新手，只会对第一个单元格进行如下填写，往下填充就不会了，请帮完善下。谢谢！
If Sheet1.Range("L2").Value = "FOB" Then
    Sheet3.Range("J2") = "工厂FOB报关"
ElseIf Sheet1.Range("L2").Value = "N" Then
Sheet3.Range("J2") = "不退税报关"
Else
Sheet3.Range("J2") = "正式报关出口"
End If


Q2:另外，还有以下这个长公式，也一同请教在宏里该怎么写整个过程：
'=IF(IF(AD2<=0,Z2*AC2,(Z2-1)*AC2+AD2),"true","false"&"("&IF(AD2<=0,Z2*AC2,(Z2-1)*AC2+AD2)&")")


Q3：如果值为false，则单元格填充红色，该怎么编写语句？

以上3个问题请大神帮解答，在线等，谢谢啦！