引き算方法について

質問

在庫引当状況のシートを作成してます。
現状の在庫数から引当数を引いてくVBA方法を教えて下さい。
下記の方法をでは、最終行固定される為
最終行までとする方法・同じ内容のシートが
複数あるのでアクティブで処理したいです。

Range("A9").Value = Range("G7") - Range("F9")

Range("A10").Value = Range("A9") - Range("F10")
Range("A11").Value = Range("A10") - Range("F11")
Range("A12").Value = Range("A11") - Range("F12")
Range("A13").Value = Range("A12") - Range("F13")
〜
最終行まで

よろしくお願いいたします

回答No.2

kkkkkm

一部訂正です

LastRow = Cells(Rows.Count, "A").End(xlUp).Row
を以下に訂正
LastRow = .Cells(Rows.Count, "A").End(xlUp).Row

回答No.1

kkkkkm

アクティブシートがどのように並んでいるのかわからないのでActiveSheetを変更していません。現在のアクティイブシートだけです。

Sub Test()
Dim i As Long, LastRow As Long

With ActiveSheet

LastRow = Cells(Rows.Count, "A").End(xlUp).Row

.Range("A9").Value = .Range("G7").Value - .Range("F9").Value

For i = 10 To LastRow
.Cells(i, "A").Value = .Cells(i - 1, "A").Value - Cells(i, "F").Value
Next

End With

End Sub