EXCELのマクロで隣の列の数値が入っている最後のセルまで数式を入れたい

Question

こんにちは。ご質問させて頂きます。

J列に数値が入っており(J10が起点でブックにより最終セルはバラバラ)J列の数値とその他の箇所を参照して、K列に計算結果を表示したいと考えております。

.Range("K11:K1000")で、1000行まで出るようにしておりますが、10行だったり1200行だったりとバラバラでその都度ここの上限を直接編集している状況です。

offsetなども試して見ましたが、上手く行かず、お手数ですがご教示の程よろしくお願い致します。

Sub test()

Dim mySheetName() As String

Worksheets("Sheet1").Range("K10").NumberFormatLocal = "#,##0_ ;[赤]-#,##0 "
Worksheets("Sheet1").Range("K10").Value = "=ROUNDDOWN(J10*(100*VLOOKUP(Sheet2!$I$7,'Sheet3'!$A$2:$B$65535,2,FALSE))/100,0)"

Worksheets("Sheet1").Range("K10").Copy Worksheets("Sheet1").Range("K11:K1000")

MsgBox "処理が終了しました"

End Sub

Answer 1

マクロの記録にて
１．K10セル選択
２．Ctrl+Shift+Endキーを押す
で、
K10～K列の入力済セルのセル範囲が取得できます。

Answer 2

取り急ぎ、J列の最終セルが何行目かわかるやつを書きます。

Dim LastRow As Long
LastRow = Cells(Rows.Count, 10).End(xlUp).Row