Sub AddNewItem()
Worksheets("ORDER").Range("$A$1").Select
ActiveCell.End(xlDown).Select
LastRec = ActiveCell.Row + 1
Worksheets("ORDER").Range("B" & LastRec).Value = "=VLOOKUP(Cells(LastRec, 1),PRICELIST!$A$2:$I$1048576,6,0)"
End Sub
結果出黎係#NAME?