vlookupのシート全体の範囲を設定します。

Question

vLookupを実行しようとしています。 VLOOKUP（value、table、index_number、[approximate_match]）テーブル全体で、シート全体を選択したいのですが、データの行がどこで終了するのか分かりません。不明な行までのシート全体の範囲を設定するにはどうすればよいですか？次のコードは次のようになります。 Sheet4.range（ "D1：Y14945"）行がどこで終了するかわからないため、Yは不明です。事前にご協力いただきありがとうございます:)

Dim look As Variant 
Dim x As Integer 
x = 2 
Sheet1.range("N2").Select 
Do Until IsEmpty(ActiveCell) 
look = Sheet1.Cells(x, 14).Value 
ActiveCell.Offset(1, 0).Select 
result = Application.WorksheetFunction.VLookup(look, 
Sheet4.range("D1:Y14945"), 21, False) 
Sheet1.Cells(x, 15).Value = result 
x = x + 1 
Loop 

Answer 1

は行番号なしの参照を使用します。

Sheet4.range("D:Y") 

を