VBAで可視セルのループ処理

前提・実現したいこと

ＶＢＡを少しずつ勉強しています。ネットで検索してサンプルを元にいじるくらいのまだまだ初歩的な感じです。
実現したいのは、オートフィルターで通出しているシートのある列に空白セルになるまで計算をするというものです。

Ａ列　・・・　Ｇ列　・・・　Ｊ列　　Ｋ列　Ｌ列　Ｍ列　Ｎ列　Ｏ列　Ｐ列　
納期　　　　　数量　　　　過不足　　　　　　　　　　　　　在庫数　200000
210820　　　　30000　　　　170000　　　　→(20000-30000)　　　　　　　　　　　　　　
210821　　　　30000　　　　140000　　　　→(17000-30000)　　　　
210825　　　　40000　　　　100000　　　　→(140000-40000)　　　
210831　　　　80000　　　　 20000　　　　→(100000-80000)
210831　　　　30000　 -10000　　　　 →(20000-30000)
･
･
･
という風にずっとデータが並んでいます。

P1セルに在庫数が入力してあります。
オートフィルターで抽出したＧ列の数値を在庫数から引き算し
J列に入力していき、Ｇ列が空白になるまでループ処理を
したいです。
可視セルのみの計算はどうやっていくのか教えてください。

ネットでこんな感じのかな？と思い解読してみても
全然わかりません。

Sub sample29()
Dim MR As Long
Dim MC As Long
MR = Cells(Rows.Count, 1).End(xlUp).Row 'ω'最終行,A:A
MC = Cells(1, Columns.Count).End(xlToLeft).Column 'ω'1:1,最終列

Cells(1, 1).AutoFilter Field:=15, Criteria1:=Array("新方式")

For Each c In Range(Cells(2, MC + 1), Cells(MR, MC + 1)).SpecialCells(xlCellTypeVisible)
X = Cells(c.Row, 8) + 3
Cells(c.Row, MC + 1) = X
Next c
End Sub

空白セルまで計算したいのでFOR　NEXTではなくFOR　EachもしくはDOLoopの方が使いやすいというのは調べていて
分かりましたが自分がやりたいコードをどうすればよいのかわかりません。

どうぞよろしくお願いします。

行動規範の内容に同意します

回答1件

ベストアンサー

下記でどうですか。

vba
1Sub sample29()
2    Dim MR As Long
3    MR = Cells(Rows.Count, 1).End(xlUp).Row    'ω'最終行,A:A
4
5    Cells(1, 1).AutoFilter Field:=15, Criteria1:=Array("新方式")
6    
7    Dim res As Long
8    res = Range("P1").Value
9
10    Dim c As Range
11    For Each c In Range(Cells(2, "G"), Cells(MR, "G")).SpecialCells(xlCellTypeVisible)
12       res = res - c.Value
13       Cells(c.Row, "j").Value = res
14    Next c
15End Sub