VBA指定区域输入公式，公式中单元格区域的参数为工作表中最后一个非空单元的行号

seide

说明：
1.根据工作表《总表》的内容，自动生产《申购清单 》
2.其他区域可以直接复制。
3.但《申购清单》中，I列需根据《总表》的M、N列提取
问题来了。
在I列中输入以下公式提取，
=IF(I6="ASSY","",("W"&VLOOKUP(D6,总表!$C$8:$N$52,12,0))&"*P"&VLOOKUP(D6,总表!$C$8:$N$52,11,0))
VLOOKUP 的table arrey 参数 单元格区域（公式中红色部分）是动态的，需根据《申购清单》中，D列最后一个非空单元格所在的行号作为参数。
用VBA 在I6:i?区域输入上述公式，如实现？


详见附件。

gdw831001

录一个宏，在第一个单无格输入上述公式后   在单元格右下角黑色十字双击或者下拉，宏录完成就可以用了

seide

感谢回复 ，但是
以下宏7是原始代码，宏6是修改后的代码，因为填充区域是根据I列最后一个非空白单元格填充，修改后代码出错：类Range的Autofill方法无效，怎么办？
Sub 宏7()
'
' 宏7 宏
     Range("J6").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-1]=""ASSY"","""",(""W""&VLOOKUP(RC[-6],总表!R8C3:R52C14,12,0))&""*P""&VLOOKUP(RC[-6],总表!R8C3:R52C14,11,0))"
    Range("J6").Select
    Selection.AutoFill Destination:=Range("J6:J56")
    Range("J6:J56").Select
    ActiveWindow.SmallScroll Down:=9
    Range("J15").Select
End Sub

Sub 宏6()
'
' 宏6 宏
'

'
    Range("J6").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-1]=""ASSY"","""",(""W""&VLOOKUP(RC[-6],总表!R8C3:R52C14,12,0))&""*P""&VLOOKUP(RC[-6],总表!R8C3:R52C14,11,0))"
     Range("J6").Select
    Selection.AutoFill Destination:=Range("J6:J" & [i65536].End(xlUp).Row).Select
    Range("J6:J" & [i65536].End(xlUp).Row).Select
    ActiveWindow.SmallScroll Down:=9
    Range("J15").Select
End Sub