フィルハンドルでドラッグして連続データを作成する。
変数を使わずに、ベタ打ちの数式をAutoFillで連続データにする。
"B2"セルにvlookupを入力し、右のマスタから品名を表示させる。
Range("B2").Value = "=VLOOKUP(A2,$D:$E,2,0)"
この数式をフィルハンドルでA列の最終行までドラッグする。
'A列の最終行番号を取得
Dim LastRow As Long
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
'B2セルにベタ打ちした数式をA列最終行番号までB列で範囲指定し、コピペ。
Range("B2").AutoFill Destination:=Range("B2" & ":" & "B" & LastRow)
Range("B2").Value = "=VLOOKUP(A2,$D:$E,2,0)"
Dim LastRow As Long
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
Range("B2").AutoFill Destination:=Range("B2" & ":" & "B" & LastRow)